Commit 7715570b authored by Leigh B Stoller's avatar Leigh B Stoller
Browse files

Minor bug fix.

parent 07137671
......@@ -1410,19 +1410,25 @@ $vlan_id,$ddep, $pideid, $vname, $members
}
else {
# If only printing orphaned VLANs, skip ones for which we know the
# pid and ied
# pid and eid
if ($opt{O}) {
next;
}
my $vlanexp = $vlan->GetExperiment();
if ($UID &&
!$vlanexp->AccessCheck($this_user, TB_EXPT_READINFO)) {
&debug("$this_user failed access check to $experiment\n");
next;
}
# Setup $pideid for a more compact display
$pideid = $vlan->pid() . "/" . $vlan->eid();
$vname = $vlan->vname();
if (!defined($vlanexp)) {
$pideid = "UNKNOWN";
$vname = "UNKNOWN";
}
else {
if ($UID &&
!$vlanexp->AccessCheck($this_user, TB_EXPT_READINFO)) {
&debug("$this_user failed access check to $experiment\n");
next;
}
# Setup $pideid for a more compact display
$pideid = $vlan->pid() . "/" . $vlan->eid();
$vname = $vlan->vname();
}
}
#
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment