update

diff --git a/web/htdocs/network/map.pl b/web/htdocs/network/map.pl
index 921b08415f02a91f19ffea1ab6e7858ad3251213..7106a015104d1b181a0be9d34dc6472f9c0aec36 100755 (executable)
--- a/web/htdocs/network/map.pl
+++ b/web/htdocs/network/map.pl
@@ -66,7 +66,7 @@ if($ENV{'QUERY_STRING'} =~ /getmap/) {
     my ($parent,$layer) = @_;
     if($layer > 16) {die "More than 16 layers of network devices found. Aborting."}
     my @o;
-    foreach my $p (keys @{$tree->{$parent}}) {
+    for (my $p = 0; $p < scalar (@{$tree->{$parent}}); $p++) {
       next unless defined $tree->{$parent}->[$p];
       my $addr = $tree->{$parent}->[$p]->{addr};
       my $btype = "";