Index: openacs-4/packages/acs-automated-testing/www/admin/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-automated-testing/www/admin/index.tcl,v
diff -u -r1.16.2.7 -r1.16.2.8
--- openacs-4/packages/acs-automated-testing/www/admin/index.tcl	5 Sep 2019 13:58:39 -0000	1.16.2.7
+++ openacs-4/packages/acs-automated-testing/www/admin/index.tcl	27 Feb 2021 20:17:05 -0000	1.16.2.8
@@ -101,17 +101,22 @@
     set global_test_coverage            [aa::coverage::proc_coverage]
     set global_test_coverage_percent    [dict get $global_test_coverage coverage]
     set global_test_coverage_level      [aa::coverage::proc_coverage_level $global_test_coverage_percent]
+    set global_test_coverage_color      [aa::percentage_to_color $global_test_coverage_percent]
+    
     #
     # Prepare the template data for a view_by "package"
     #
-    template::multirow create packageinfo key total passes fails warnings proc_coverage proc_coverage_level
+    template::multirow create packageinfo key total passes fails warnings proc_coverage proc_coverage_level color
     foreach package_key [lsort [array names packages]] {
-        #ns_log notice "view_by $view_by package_key=$package_key"
         lassign $packages($package_key) total passes fails warnings
         set proc_coverage [dict get [aa::coverage::proc_coverage -package_key $package_key] coverage]
         set proc_coverage_level [aa::coverage::proc_coverage_level $proc_coverage]
+        set proc_coverage_color [aa::percentage_to_color $proc_coverage]
+        #ns_log notice "view_by $view_by package_key=$package_key $proc_coverage_level $proc_coverage_color"
 
-        template::multirow append packageinfo $package_key $total $passes $fails $warnings $proc_coverage $proc_coverage_level
+        template::multirow append packageinfo $package_key $total \
+            $passes $fails $warnings \
+            $proc_coverage $proc_coverage_level $proc_coverage_color
     }
 } else {
     #