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.3 -r1.4 --- openacs-4/packages/acs-tcl/tcl/site-nodes-procs.xql 1 Dec 2001 17:55:16 -0000 1.3 +++ openacs-4/packages/acs-tcl/tcl/site-nodes-procs.xql 20 Jun 2002 22:58:18 -0000 1.4 @@ -1,36 +1,37 @@ - - - - update site_nodes - set object_id = :package_id - where node_id = :node_id - - - + + + update site_nodes + set object_id = :object_id + where node_id = :node_id + + - - - - - select object_id as context_id - from site_nodes - where node_id = :parent_node_id - - - + + + update site_nodes + set object_id = null + where node_id = :node_id + + - - - - - update site_nodes - set object_id = null - where node_id = :node_id + + + select object_id as context_id + from site_nodes + where node_id = :parent_node_id + + + - - + + + update site_nodes + set object_id = null + where node_id = :node_id + +