Changeset 389

Timestamp:

12/21/06 16:34:46 (6 years ago)

Author:

max

Message:

Bugfix for [384]

Files:

• util/server_daily_maint (modified) (1 diff)

util/server_daily_maint

@@ -586 +586 @@
                 my $label = $regions{$k};
                 $label ||= "region $k";
-                $data->{$label} += scalar(keys %{$h->{$k}});
+                foreach my $sysid (keys %{$h->{$k}})
+                {
+                    push (@{$data->{$label}}, $sysid) unless (grep($_ eq $sysid, @{$data->{$label}}));
+                }
             }
         }
+    }
+
+    # convert to # of unique sysids
+    foreach (keys %$data)
+    {
+        $data->{$_} = scalar(@{$data->{$_}});
     }
     return $data;