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.17 -r1.16.2.18
--- openacs-4/packages/acs-automated-testing/www/admin/index.tcl	2 May 2021 17:32:04 -0000	1.16.2.17
+++ openacs-4/packages/acs-automated-testing/www/admin/index.tcl	2 May 2021 19:08:32 -0000	1.16.2.18
@@ -123,6 +123,7 @@
     template::multirow create packageinfo key url \
         total passes fails warnings proc_coverage \
         proc_coverage_level background foreground
+
     foreach package_key [lsort [array names packages]] {
         lassign $packages($package_key) total passes fails warnings
         set proc_coverage [dict get [aa::coverage::proc_coverage -package_key $package_key] coverage]
@@ -210,6 +211,50 @@
 set record_url [export_vars -base "record-test" -url {return_url package_key}]
 set bulk_actions_vars [export_vars -form {{category $by_category} view_by quiet stress security_risk}]
 
+set flipped_stress [expr {!$stress}]
+set stress_url [export_vars -base index {
+    {quiet 0} {stress $flipped_stress} security_risk
+    by_package_key view_by by_category
+}]
+
+set flipped_security_risk [expr {!$security_risk}]
+set security_risk_url [export_vars -base index {
+    {quiet 0} stress {security_risk $flipped_security_risk}
+    by_package_key view_by by_category
+}]
+
+set flipped_quiet [expr {!$quiet}]
+set quiet_url [export_vars -base index {
+    {quiet $flipped_quiet} stress security_risk
+    by_package_key view_by by_category
+}]
+
+set view_by_testcase_url [export_vars -base index {
+    quiet stress security_risk
+    by_package_key {view_by testcase} by_category
+}]
+set view_by_package_url [export_vars -base index {
+    quiet stress security_risk
+    by_package_key {view_by package} by_category
+}]
+
+set all_url [export_vars -base index {
+    quiet stress security_risk
+    by_package_key view_by
+}]
+
+set rerun_url [export_vars -base rerun {
+    quiet stress security_risk
+    {package_key $by_package_key} view_by {category $by_category}
+}]
+
+set clear_url [export_vars -base clear {
+    quiet stress security_risk
+    {package_key $by_package_key} view_by {category $by_category}
+}]
+
+
+
 # Local variables:
 #    mode: tcl
 #    tcl-indent-level: 4