Index: openacs-4/packages/acs-subsite/www/admin/site-map/auto-mount.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/site-map/auto-mount.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/acs-subsite/www/admin/site-map/auto-mount.tcl	13 Mar 2001 22:59:26 -0000	1.1
+++ openacs-4/packages/acs-subsite/www/admin/site-map/auto-mount.tcl	21 Jun 2002 19:08:33 -0000	1.2
@@ -6,24 +6,18 @@
 
     @author mbryzek@arsdigita.com
     @creation-date Fri Feb  9 20:27:26 2001
-    @cvs-id $Id$
+    @version $Id$
 
 } {
     package_key:notnull
     node_id:integer,notnull
-    { return_url "" }
+    {return_url ""}
 }
 
 subsite::auto_mount_application -node_id $node_id $package_key
 
-if { [empty_string_p $return_url] } {
-    # Go back to the node
-    db_1row select_node_url {
-	select site_node.url(s.node_id) as return_url
-	  from site_nodes s, apm_packages p
-	 where s.object_id = p.package_id
-	   and s.node_id = :node_id
-    }
+if {[empty_string_p $return_url]} {
+    set return_url [site_node::get_url -node_id]
 }
 
 ad_returnredirect $return_url