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 -N -r1.93.2.14 -r1.93.2.15 --- openacs-4/packages/acs-tcl/tcl/site-nodes-procs.tcl 9 Jan 2017 16:49:27 -0000 1.93.2.14 +++ openacs-4/packages/acs-tcl/tcl/site-nodes-procs.tcl 10 Jan 2017 08:40:27 -0000 1.93.2.15 @@ -136,15 +136,15 @@ -delete_subnodes:boolean } { delete the site node -} { +} { if {!$delete_subnodes_p} { set n_subnodes [llength [site_node::get_children \ -node_id $node_id]] if {$n_subnodes != 0} { error "Site node has subnodes. To force use -delete_subnodes option" } } - + set nodes_to_delete {} # breadth-first visit of the node tree, so we can delete children