Commit 2da4652d authored by Russ Fish's avatar Russ Fish

Link to nodes normally on the pc600wifi map.

parent 5d304b8a
...@@ -797,9 +797,11 @@ sub dofloor($$) ...@@ -797,9 +797,11 @@ sub dofloor($$)
} }
} }
# Link to a special page for the pc600 Wifi Cluster nodes. # Link to a special page for the pc600 Wifi Cluster nodes,
# except on their own map.
my $ispc600wifi = defined($rowref->{"feature"}) && my $ispc600wifi = defined($rowref->{"feature"}) &&
$rowref->{"feature"} eq "pc600wifi"; $rowref->{"feature"} eq "pc600wifi" &&
$building ne $pc600wifi_bldg;
$props->{'ISPC600WIFI'} = $ispc600wifi; $props->{'ISPC600WIFI'} = $ispc600wifi;
my $x2 = $x + $DOT_RAD; my $x2 = $x + $DOT_RAD;
...@@ -881,7 +883,7 @@ sub dofloor($$) ...@@ -881,7 +883,7 @@ sub dofloor($$)
($o > 180.0 && $o < 360.0))); ($o > 180.0 && $o < 360.0)));
# No labels on the pc600 wifi cluster nodes, except on their own map. # No labels on the pc600 wifi cluster nodes, except on their own map.
if (!$ispc600wifi || $building eq $pc600wifi_bldg) { if (!$ispc600wifi) {
$err = $baseimage->Annotate(fill=>'black', x=>$lx, y=>$ly, $err = $baseimage->Annotate(fill=>'black', x=>$lx, y=>$ly,
text=>"$label"); text=>"$label");
warn "$err" if "$err"; warn "$err" if "$err";
......
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