Index: openacs-4/packages/acs-automated-testing/www/admin/index.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-automated-testing/www/admin/index.adp,v
diff -u -r1.21.2.2 -r1.21.2.3
--- openacs-4/packages/acs-automated-testing/www/admin/index.adp	24 Apr 2019 11:37:59 -0000	1.21.2.2
+++ openacs-4/packages/acs-automated-testing/www/admin/index.adp	28 Aug 2019 18:48:04 -0000	1.21.2.3
@@ -121,6 +121,7 @@
         <th>Fails</th>
         <th>Warnings</th>
         <th>Result</th>
+        <th>Proc coverage</th>
     </tr>
     <multiple name="packageinfo">
         <if @packageinfo.rownum@ odd>
@@ -137,6 +138,7 @@
           <td align="right">-</td>
           <td align="right">-</td>
           <td align="right">-</td>
+          <td align="right"><a href=proc-coverage?package_key=@packageinfo.key@>@packageinfo.proc_coverage@</a></td>
         </if><else>
           <td align="right"> @packageinfo.total@ </td>
           <td align="right"> @packageinfo.passes@ </td>
@@ -153,6 +155,7 @@
               OK
             </else>
           </td>
+          <td align="right"><a href=proc-coverage?package_key="@packageinfo.key@">@packageinfo.proc_coverage@</a></td>
         </else>
       </tr>
     </multiple>
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.1 -r1.16.2.2
--- openacs-4/packages/acs-automated-testing/www/admin/index.tcl	24 Apr 2019 10:30:56 -0000	1.16.2.1
+++ openacs-4/packages/acs-automated-testing/www/admin/index.tcl	28 Aug 2019 18:48:04 -0000	1.16.2.2
@@ -91,11 +91,12 @@
     #
     # Prepare the template data for a view_by "package"
     #
-    template::multirow create packageinfo key total passes fails warnings
+    template::multirow create packageinfo key total passes fails warnings proc_coverage
     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
-        template::multirow append packageinfo $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
     }
 } else {
     #