--- loncom/interface/lonnavmaps.pm	2003/09/09 18:46:28	1.226
+++ loncom/interface/lonnavmaps.pm	2003/09/10 19:29:33	1.227
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Navigate Maps Handler
 #
-# $Id: lonnavmaps.pm,v 1.226 2003/09/09 18:46:28 www Exp $
+# $Id: lonnavmaps.pm,v 1.227 2003/09/10 19:29:33 bowersj2 Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1093,13 +1093,16 @@ sub render_long_status {
     return $result;
 }
 
+# Colors obtained by taking the icons, matching the colors, and
+# possibly reducing the Value (HSV) of the color, if it's too bright
+# for text, generally by one third or so.
 my %statusColors = 
     (
      $resObj->CLOSED => '#000000',
-     $resObj->OPEN   => '#000000',
-     $resObj->CORRECT => '#000000',
-     $resObj->INCORRECT => '#000000',
-     $resObj->ATTEMPTED => '#000000',
+     $resObj->OPEN   => '#998b13',
+     $resObj->CORRECT => '#26933f',
+     $resObj->INCORRECT => '#c48207',
+     $resObj->ATTEMPTED => '#a87510',
      $resObj->ERROR => '#000000'
      );
 my %statusStrings = 
@@ -1144,7 +1147,7 @@ sub render_parts_summary_status {
 	}
     }
 
-    return $td . join (', ', @counts) . $endtd;
+    return $td . $resource->countParts() . ' parts: ' . join (', ', @counts) . $endtd;
 }
 
 my @preparedColumns = (\&render_resource, \&render_communication_status,