Fisheye: Tag 1.4 refers to a dead (removed) revision in file `openacs-4/packages/acs-automated-testing/tcl/aa-test-procs-oracle.xql'.
Fisheye: No comparison available.  Pass `N' to diff?
Fisheye: Tag 1.4 refers to a dead (removed) revision in file `openacs-4/packages/acs-automated-testing/tcl/aa-test-procs-postgresql.xql'.
Fisheye: No comparison available.  Pass `N' to diff?
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.41 -r1.42
--- openacs-4/packages/acs-automated-testing/tcl/aa-test-procs.tcl	7 Aug 2017 23:47:46 -0000	1.41
+++ openacs-4/packages/acs-automated-testing/tcl/aa-test-procs.tcl	15 Nov 2017 16:28:23 -0000	1.42
@@ -1243,17 +1243,18 @@
 
 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
+    useful for tclwebtest tests.    
 } {
-    Procedure for geting the url of a mounted package with the package_key. It uses the first instance that it founds. This is useful for tclwebtest tests.
-} {
-
-    if {![db_0or1row first_url {}]} {
+    set url [site_node::get_package_url -package_key $package_key]
+    if {$url eq ""} {
         site_node::instantiate_and_mount -package_key $package_key
-        db_1row first_url {}
+        set url [site_node::get_package_url -package_key $package_key]
     }
 
     return $url
-
 }
 
 ad_proc -public aa_display_result {