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.7 -r1.8
--- openacs-4/packages/acs-tcl/tcl/site-nodes-procs.xql	27 Nov 2003 15:25:18 -0000	1.7
+++ openacs-4/packages/acs-tcl/tcl/site-nodes-procs.xql	2 Mar 2004 17:01:38 -0000	1.8
@@ -9,6 +9,14 @@
         </querytext>
     </fullquery>
 
+    <fullquery name="site_node::mount.update_object_package_id">
+        <querytext>
+            update acs_objects
+            set package_id = :object_id
+            where object_id = :node_id
+        </querytext>
+    </fullquery>
+
     <fullquery name="site_node::rename.rename_node">
         <querytext>
             update site_nodes
@@ -17,6 +25,14 @@
         </querytext>
     </fullquery>
 
+    <fullquery name="site_node::rename.update_object_title">
+        <querytext>
+            update acs_objects
+            set    title = :name
+            where  object_id = :node_id
+        </querytext>
+    </fullquery>
+
     <fullquery name="site_node::unmount.unmount_object">
         <querytext>
             update site_nodes
@@ -25,6 +41,14 @@
         </querytext>
     </fullquery>
 
+    <fullquery name="site_node::unmount.update_object_package_id">
+        <querytext>
+            update acs_objects
+            set package_id = null
+            where object_id = :node_id
+        </querytext>
+    </fullquery>
+
     <fullquery name="site_node::init_cache.get_root_node_id">
         <querytext>
             select node_id