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.9.2.2 -r1.9.2.3
--- openacs-4/packages/acs-automated-testing/www/admin/index.tcl	20 Oct 2015 08:01:06 -0000	1.9.2.2
+++ openacs-4/packages/acs-automated-testing/www/admin/index.tcl	2 Dec 2016 16:16:53 -0000	1.9.2.3
@@ -21,6 +21,7 @@
     quiet:onevalue
 }
 set title "System test cases"
+set return_url [ad_return_url]
 
 if {$by_package_key ne ""} {
     append title " for package $by_package_key"
@@ -95,7 +96,7 @@
     #
     # Prepare the template data for a view_by "testcase"
     #
-    template::multirow create tests id description package_key categories \
+    template::multirow create tests id url description package_key categories \
         timestamp passes fails marker
     set old_package_key ""
     foreach testcase [nsv_get aa_test cases] {
@@ -124,7 +125,11 @@
             } else {
                 set marker 0
             }
-            template::multirow append tests $testcase_id $testcase_desc \
+            set testcase_url [export_vars -base "testcase" -url {testcase_id package_key view_by {category by_category} quiet return_url}]
+            template::multirow append tests \
+                $testcase_id \
+                $testcase_url \
+                $testcase_desc \
                 $package_key \
                 $categories_str \
                 $testcase_timestamp \
@@ -147,11 +152,8 @@
         template::multirow append exclusion_categories $category
     }
 }
-#
-# Set return url 
-#
 
-set record_url [export_vars -base "record-test" -url {{return_url [ad_return_url]} package_key}]
+set record_url [export_vars -base "record-test" -url {return_url package_key}]
 ad_return_template
 
 # Local variables: