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.9 -r1.10 --- openacs-4/packages/acs-automated-testing/www/admin/index.tcl 27 Oct 2014 16:39:02 -0000 1.9 +++ openacs-4/packages/acs-automated-testing/www/admin/index.tcl 7 Aug 2017 23:47:46 -0000 1.10 @@ -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] { @@ -114,16 +115,21 @@ # - The package key is blank or it matches the specified. # - The category is blank or it matches the specified. # - if {($by_package_key eq "" || ($by_package_key eq $package_key)) && \ - ($by_category eq "" || ([lsearch $categories $by_category] != -1))} { + if {($by_package_key eq "" || ($by_package_key eq $package_key)) + && ($by_category eq "" || ($by_category in $categories)) + } { # Swap the highlight flag between packages. if {$old_package_key ne $package_key} { set marker 1 set old_package_key $package_key } 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 \ @@ -146,9 +152,12 @@ 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: +# mode: tcl +# tcl-indent-level: 4 +# indent-tabs-mode: nil +# End: