Index: openacs-4/packages/acs-automated-testing/tcl/aa-test-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-automated-testing/tcl/aa-test-procs.tcl,v
diff -u -N -r1.32 -r1.32.2.1
--- openacs-4/packages/acs-automated-testing/tcl/aa-test-procs.tcl	24 Feb 2004 13:45:29 -0000	1.32
+++ openacs-4/packages/acs-automated-testing/tcl/aa-test-procs.tcl	21 Jul 2005 17:32:33 -0000	1.32.2.1
@@ -1188,3 +1188,13 @@
     }
     set test(testcase_failure) [array get testcase_failure]
 }
+
+ad_proc -public aa_get_first_url {
+    {-package_key:required}
+} {
+  Procedure for geting the url of a mounted package with the package_key. It uses the first instance that it founds. This is usefull for tclwebtest tests.
+} {
+
+    db_1row first_url { *SQL* }
+        return $url
+}
\ No newline at end of file