Index: openacs-4/packages/xowiki/tcl/xowiki-utility-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/xowiki-utility-procs.tcl,v diff -u -r1.51 -r1.52 --- openacs-4/packages/xowiki/tcl/xowiki-utility-procs.tcl 21 Jun 2018 09:19:52 -0000 1.51 +++ openacs-4/packages/xowiki/tcl/xowiki-utility-procs.tcl 22 Jun 2018 11:56:11 -0000 1.52 @@ -431,7 +431,7 @@ proc ::xowiki::page_order_uses_ltree {} { if {[::xo::dc has_ltree]} { - ns_cache eval xotcl_object_cache ::xowiki::page_order_uses_ltree { + ::xo::xotcl_object_type_cache eval ::xowiki::page_order_uses_ltree { return [::xo::dc get_value check_po_ltree { select count(*) from pg_attribute a, pg_type t, pg_class c where attname = 'page_order' and a.atttypid = t.oid and c.oid = a.attrelid @@ -484,9 +484,9 @@ ::xo::dc dml chg5 "update acs_objects set object_type = '::xowiki::FormPage' where object_id = :revision_id" ::xo::dc dml chg6 "update cr_items set content_type = '::xowiki::FormPage', publish_status = 'ready', live_revision = :revision_id, latest_revision = :revision_id where item_id = :item_id" - ::xo::xotcl_object_cache flush ::$package_id - ::xo::xotcl_object_cache flush ::$item_id - ::xo::xotcl_object_cache flush ::$revision_id + ::xo::xotcl_object_cache flush $package_id + ::xo::xotcl_object_cache flush $item_id + ::xo::xotcl_object_cache flush $revision_id ::xo::clusterwide ns_cache flush xotcl_object_type_cache root-folder-$package_id ::xo::clusterwide ns_cache flush xotcl_object_type_cache $item_id ::xo::clusterwide ns_cache flush xotcl_object_type_cache $revision_id @@ -821,8 +821,8 @@ #ns_log notice "--cpo UPDATE $page_id new_page_order $new_page_order" $temp_obj item_id $item_id $temp_obj update_attribute_from_slot -revision_id $page_id $slot $new_page_order - ::xo::xotcl_object_cache flush ::$item_id - ::xo::xotcl_object_cache flush ::$page_id + ::xo::xotcl_object_cache flush $item_id + ::xo::xotcl_object_cache flush $page_id } } #