[LON-CAPA-cvs] cvs: loncom /interface lonnavmaps.pm

[bowersj2]

bowersj2		Wed Sep 10 15:29:33 2003 EDT

  Modified files:              
    /loncom/interface	lonnavmaps.pm 
  Log:
  Color the statuses, add an "X parts: " tag to the beginning.
  
  
Index: loncom/interface/lonnavmaps.pm
diff -u loncom/interface/lonnavmaps.pm:1.226 loncom/interface/lonnavmaps.pm:1.227
--- loncom/interface/lonnavmaps.pm:1.226	Tue Sep  9 14:46:28 2003
+++ loncom/interface/lonnavmaps.pm	Wed Sep 10 15:29:33 2003
@@ -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 @@
     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 @@
 	}
     }
 
-    return $td . join (', ', @counts) . $endtd;
+    return $td . $resource->countParts() . ' parts: ' . join (', ', @counts) . $endtd;
 }
 
 my @preparedColumns = (\&render_resource, \&render_communication_status,