Index: openacs-4/packages/acs-tcl/tcl/site-nodes-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/site-nodes-procs.xql,v
diff -u -r1.9 -r1.10
--- openacs-4/packages/acs-tcl/tcl/site-nodes-procs.xql 4 Mar 2004 14:52:49 -0000 1.9
+++ openacs-4/packages/acs-tcl/tcl/site-nodes-procs.xql 12 Mar 2004 18:48:55 -0000 1.10
@@ -9,6 +9,14 @@
+
+
+ update acs_objects
+ set package_id = :object_id
+ where object_id = :node_id
+
+
+
update site_nodes
@@ -17,6 +25,14 @@
+
+
+ update acs_objects
+ set title = :name
+ where object_id = :node_id
+
+
+
update site_nodes
@@ -25,6 +41,14 @@
+
+
+ update acs_objects
+ set package_id = null
+ where object_id = :node_id
+
+
+
select node_id