Index: openacs-4/packages/acs-automated-testing/tcl/aa-test-procs-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-automated-testing/tcl/Attic/aa-test-procs-oracle.xql,v
diff -u -r1.2 -r1.2.4.1
--- openacs-4/packages/acs-automated-testing/tcl/aa-test-procs-oracle.xql	11 Feb 2003 11:05:04 -0000	1.2
+++ openacs-4/packages/acs-automated-testing/tcl/aa-test-procs-oracle.xql	21 Jul 2005 17:32:33 -0000	1.2.4.1
@@ -34,4 +34,14 @@
   </querytext>
 </fullquery>
 
+<fullquery name="aa_get_first_url.first_url">
+  <querytext>
+    select site_node.url(node_id) as url
+    from site_nodes
+    where object_id in (select package_id from apm_packages
+                    where package_key = :package_key)
+    rownum 1
+   </querytext>
+</fullquery>
+
 </queryset>
Index: openacs-4/packages/acs-automated-testing/tcl/aa-test-procs-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-automated-testing/tcl/Attic/aa-test-procs-postgresql.xql,v
diff -u -r1.1 -r1.1.10.1
--- openacs-4/packages/acs-automated-testing/tcl/aa-test-procs-postgresql.xql	11 Nov 2001 18:03:52 -0000	1.1
+++ openacs-4/packages/acs-automated-testing/tcl/aa-test-procs-postgresql.xql	21 Jul 2005 17:32:33 -0000	1.1.10.1
@@ -1,7 +1,8 @@
 <?xml version="1.0"?>
 <queryset>
    <rdbms><type>postgresql</type><version>7.1</version></rdbms>
- 
+
+
 <fullquery name="aa_run_testcase.delete_testcase_results_sql">
   <querytext>
     delete from aa_test_results
@@ -34,4 +35,15 @@
   </querytext>
 </fullquery>
 
+<fullquery name="aa_get_first_url.first_url">
+  <querytext>
+   select site_node__url(node_id) as url
+   from site_nodes
+   where object_id in (select package_id from apm_packages
+                       where package_key = :package_key)
+   limit 1
+   </querytext>
+</fullquery>
+
+
 </queryset>
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 -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