Index: openacs-4/packages/acs-subsite/www/admin/site-map/unmount.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/site-map/unmount.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/acs-subsite/www/admin/site-map/unmount.tcl	13 Mar 2001 22:59:26 -0000	1.1
+++ openacs-4/packages/acs-subsite/www/admin/site-map/unmount.tcl	21 Jun 2002 19:08:33 -0000	1.2
@@ -2,23 +2,16 @@
 
 ad_page_contract {
 
-  @author rhs@mit.edu
-  @creation-date 2000-09-12
-  @cvs-id $Id$
+    @author rhs@mit.edu
+    @creation-date 2000-09-12
+    @version $Id$
+
 } {
-  node_id:integer,notnull
-  {expand:integer,multiple {}}
-  root_id:integer,optional
+    node_id:integer,notnull
+    {expand:integer,multiple ""}
+    root_id:integer,optional
 }
 
-db_transaction {
-  db_dml unmount {
-    update site_nodes
-    set object_id = null
-    where node_id = :node_id
-  }
+site_node::unmount -node_id $node_id
 
-  site_nodes_sync
-}
-
-ad_returnredirect .?[export_url_vars expand:multiple root_id]
+ad_returnredirect ".?[export_url_vars expand:multiple root_id]"