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.141.2.25 -r1.141.2.26 --- openacs-4/packages/acs-tcl/tcl/site-nodes-procs.tcl 1 Sep 2020 14:40:40 -0000 1.141.2.25 +++ openacs-4/packages/acs-tcl/tcl/site-nodes-procs.tcl 1 Sep 2020 17:32:07 -0000 1.141.2.26 @@ -1234,11 +1234,11 @@ # @return boolean value. # ns_log notice "NO-CACHE has_children called with $node_id" - + ::xo::dc get_value -prepare integer has_children { select exists(select 1 from site_nodes where parent_id = :node_id) } - } + } # # @method get_urls_from_object_id @@ -1428,7 +1428,7 @@ has_children-$node_id { next } - } + } :public method get_node_id {-url:required} { #