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.7 -r1.8
--- openacs-4/packages/acs-automated-testing/www/admin/index.tcl	10 Jan 2007 21:22:02 -0000	1.7
+++ openacs-4/packages/acs-automated-testing/www/admin/index.tcl	29 Aug 2007 14:32:38 -0000	1.8
@@ -115,10 +115,10 @@
         # - 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 == $package_key)) && \
+        if {($by_package_key eq "" || ($by_package_key eq $package_key)) && \
                 ($by_category eq "" || ([lsearch $categories $by_category] != -1))} {
             # Swap the highlight flag between packages.
-            if {$old_package_key != $package_key} {
+            if {$old_package_key ne $package_key} {
                 set marker 1
                 set old_package_key $package_key
             } else {
@@ -147,5 +147,9 @@
         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}]
 ad_return_template