Index: openacs-4/packages/acs-automated-testing/www/admin/rerun.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-automated-testing/www/admin/rerun.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/acs-automated-testing/www/admin/rerun.tcl	26 Jun 2015 20:50:09 -0000	1.6
+++ openacs-4/packages/acs-automated-testing/www/admin/rerun.tcl	7 Aug 2017 23:47:46 -0000	1.7
@@ -1,29 +1,39 @@
 ad_page_contract {
     @cvs-id $Id$
 } {
-    {package_key ""}
+    {package_key:token ""}
     {category:aa_test_category ""}
     {view_by:aa_test_view_by "package"}
-    {testcase_id:naturalnum,notnull ""}
+    {testcase_id:word,notnull ""}
     {quiet:boolean "0"}
     {stress:boolean "0"}
     {security_risk:boolean "0"}
 } -properties {
 }
 
 if {$testcase_id eq ""} {
-  if {$quiet} {
-    aa_runseries -stress $stress -security_risk $security_risk -quiet $package_key $category
-  } else {
-    aa_runseries -stress $stress -security_risk $security_risk $package_key $category
-  }
-  ad_returnredirect "index?by_package_key=$package_key&by_category=$category&view_by=$view_by&quiet=$quiet&stress=$stress&security_risk=$security_risk"
+    if {$quiet} {
+	aa_runseries -stress $stress -security_risk $security_risk -quiet $package_key $category
+    } else {
+	aa_runseries -stress $stress -security_risk $security_risk $package_key $category
+    }
+    
+    ad_returnredirect [export_vars -base index {
+	{by_package_key $package_key}
+	{by_category $category}
+	view_by quiet stress security_risk}]
 } else {
-  if {$quiet} {
-    aa_runseries -quiet -testcase_id $testcase_id "" ""
-  } else {
-    aa_runseries -testcase_id $testcase_id "" ""
-  }
-  ad_returnredirect "testcase?testcase_id=$testcase_id&package_key=$package_key&quiet=$quiet"
+    if {$quiet} {
+	aa_runseries -quiet -testcase_id $testcase_id "" ""
+    } else {
+	aa_runseries -testcase_id $testcase_id "" ""
+    }
+    ad_returnredirect "testcase?testcase_id=$testcase_id&package_key=$package_key&quiet=$quiet"
 }
 
+
+# Local variables:
+#    mode: tcl
+#    tcl-indent-level: 4
+#    indent-tabs-mode: nil
+# End: