Index: openacs-4/packages/acs-tcl/tcl/site-nodes-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/site-nodes-procs.tcl,v diff -u -r1.17.2.13 -r1.17.2.14 --- openacs-4/packages/acs-tcl/tcl/site-nodes-procs.tcl 14 Jul 2003 16:23:49 -0000 1.17.2.13 +++ openacs-4/packages/acs-tcl/tcl/site-nodes-procs.tcl 15 Jul 2003 08:08:58 -0000 1.17.2.14 @@ -60,10 +60,16 @@ Rename the site node. } { # We need to update the cache for all the child nodes as well + set node_url [get_url -node_id $node_id] set child_node_ids [get_children -all -node_id $node_id -element node_id] db_dml rename_node {} + # Unset all cache entries under the old path + foreach name [nsv_array names site_nodes "${node_url}*"] { + nsv_unset site_nodes $name + } + foreach node_id [concat $node_id $child_node_ids] { update_cache -node_id $node_id }