--- loncom/cgi/clusterstatus.pl	2003/07/31 19:18:16	1.11
+++ loncom/cgi/clusterstatus.pl	2003/07/31 19:55:37	1.12
@@ -3,7 +3,7 @@ $|=1;
 # The LearningOnline Network with CAPA
 # Cluster Status
 #
-# $Id: clusterstatus.pl,v 1.11 2003/07/31 19:18:16 www Exp $
+# $Id: clusterstatus.pl,v 1.12 2003/07/31 19:55:37 www Exp $
 
 use lib '/home/httpd/lib/perl/';
 use LONCAPA::Configuration;
@@ -509,7 +509,7 @@ foreach $local (sort keys %hostname) {
 		    print 
 '<tr><th bgcolor="#BBDDBB"><font face="arial" color="#225522" size="+1">'.$local.
 			'</font></th><td bgcolor="#DDDDBB">';
-		    &users();
+		    &users($local);
 		    print 
 	      '</td><td bgcolor="#DDDDBB"><font face="arial" color="#225522">'.
 	      $host{$local.'_users'}.'</font></td><td bgcolor="#DDDDBB"';
@@ -533,7 +533,7 @@ foreach $local (sort keys %hostname) {
 '<tr><th bgcolor="#BBDDBB"><font face="arial" color="#225522" size="+1">'.
                         $local.
 			'</font></th><td bgcolor="#DDDDBB">';
-		    &server();
+		    &server($local);
 		    print 
 	      '</td><td bgcolor="#DDDDBB"><font face="arial" color="#225522">'.
 	      $host{$local.'_load_doomed'}.'</font></td><td bgcolor="#DDDDBB"';