Index: openacs-4/packages/acs-automated-testing/www/admin/proc-coverage.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-automated-testing/www/admin/proc-coverage.tcl,v
diff -u -N -r1.5.2.2 -r1.5.2.3
--- openacs-4/packages/acs-automated-testing/www/admin/proc-coverage.tcl	6 Sep 2019 13:42:55 -0000	1.5.2.2
+++ openacs-4/packages/acs-automated-testing/www/admin/proc-coverage.tcl	28 Feb 2021 16:42:10 -0000	1.5.2.3
@@ -16,9 +16,10 @@
     #
     # System wide proc test coverage
     #
-    set title "Global proc test coverage"
-    set proc_list       [aa::coverage::proc_list]
-    set test_coverage   [aa::coverage::proc_coverage]
+    set title "Global Test coverage"
+    set context       [list $title]
+    set proc_list     [aa::coverage::proc_list]
+    set test_coverage [aa::coverage::proc_coverage]
     set list_elements {
         package_key {
             label "Package"
@@ -34,17 +35,19 @@
     #
     # Proc test coverage for a particular package
     #
-    set title "Proc test coverage of $package_key"
-    set proc_list       [aa::coverage::proc_list -package_key $package_key]
-    set test_coverage   [aa::coverage::proc_coverage -package_key $package_key]
-    set list_elements   [list]
+    set title "Test coverage of $package_key"
+    set context [list \
+                     [list "./index?by_package_key=$package_key&view_by=testcase" "Package $package_key"] \
+                     "Test coverage"]    
+    set proc_list     [aa::coverage::proc_list -package_key $package_key]
+    set test_coverage [aa::coverage::proc_coverage -package_key $package_key]
+    set list_elements [list]
     set orderby_elements {
         default_value proc_name,asc
     }
 }
 
 # Set context and coverage vars
-set context [list $title]
 set test_coverage_percent   [dict get $test_coverage coverage]
 set test_coverage_procs_nr  [dict get $test_coverage procs]
 set test_coverage_procs_cv  [dict get $test_coverage covered]