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 -N -r1.16.2.2 -r1.16.2.3
--- openacs-4/packages/acs-automated-testing/www/admin/index.tcl	28 Aug 2019 18:48:04 -0000	1.16.2.2
+++ openacs-4/packages/acs-automated-testing/www/admin/index.tcl	29 Aug 2019 18:34:05 -0000	1.16.2.3
@@ -23,6 +23,8 @@
 set title "System test cases"
 set return_url [ad_return_url]
 
+template::head::add_css -href /resources/acs-automated-testing/tests.css
+
 if {$by_package_key ne ""} {
     append title " for package $by_package_key"
 }
@@ -91,12 +93,14 @@
     #
     # Prepare the template data for a view_by "package"
     #
-    template::multirow create packageinfo key total passes fails warnings proc_coverage
+    template::multirow create packageinfo key total passes fails warnings proc_coverage proc_coverage_level
     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_test::proc_coverage -package_key $package_key] coverage]
-        template::multirow append packageinfo $package_key $total $passes $fails $warnings $proc_coverage
+        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]
+
+        template::multirow append packageinfo $package_key $total $passes $fails $warnings $proc_coverage $proc_coverage_level
     }
 } else {
     #