--- loncom/cgi/clusterstatus.pl	2003/08/20 01:34:25	1.19
+++ loncom/cgi/clusterstatus.pl	2003/08/29 17:42:32	1.20
@@ -3,7 +3,7 @@ $|=1;
 # The LearningOnline Network with CAPA
 # Cluster Status
 #
-# $Id: clusterstatus.pl,v 1.19 2003/08/20 01:34:25 www Exp $
+# $Id: clusterstatus.pl,v 1.20 2003/08/29 17:42:32 www Exp $
 
 use lib '/home/httpd/lib/perl/';
 use LONCAPA::Configuration;
@@ -459,7 +459,7 @@ sub reports {
 		    print 
 '<td bgcolor="'.$cellcolor.'"><font color="#225522" face="arial"><b>ok</b></td>';
 		} else {
-		    my $cellcolor='#DDBBBB';
+		    my $cellcolor='#DDCCAA';
 		    if ($connectionstatus{$local.'_TO_'.$remote} eq 'local_error') {
 			if ($local eq $remote) { 
 			    $cellcolor='#DD88AA'; 
@@ -467,7 +467,7 @@ sub reports {
 			    $cellcolor='#DDAACC';
 			}
 		    } else {
-			if ($local eq $remote) { $cellcolor='#DD9999'; }
+			if ($local eq $remote) { $cellcolor='#DDBB77'; }
 		    }
 		    print 
 		  '<td bgcolor="'.$cellcolor.'"><font color="#552222" size="-2">'.