Index: openacs-4/packages/acs-subsite/www/admin/site-map/mount-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/site-map/mount-2.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/acs-subsite/www/admin/site-map/mount-2.tcl	13 Mar 2001 22:59:26 -0000	1.1
+++ openacs-4/packages/acs-subsite/www/admin/site-map/mount-2.tcl	21 Jun 2002 19:08:33 -0000	1.2
@@ -14,15 +14,6 @@
 
 ad_require_permission $package_id read
 
-db_transaction {
-  db_dml mount {
-    update site_nodes
-    set object_id = :package_id
-    where node_id = :node_id
-    and object_id is null
-  }
+site_node::mount -node_id $node_id -object_id $package_id
 
-  site_nodes_sync
-}
-
-ad_returnredirect .?[export_url_vars expand:multiple root_id]
+ad_returnredirect ".?[export_url_vars expand:multiple root_id]"