Index: openacs-4/packages/xowiki/tcl/package-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/package-procs.tcl,v diff -u -r1.279.2.10 -r1.279.2.11 --- openacs-4/packages/xowiki/tcl/package-procs.tcl 29 Jul 2014 22:21:08 -0000 1.279.2.10 +++ openacs-4/packages/xowiki/tcl/package-procs.tcl 31 Jul 2014 12:30:15 -0000 1.279.2.11 @@ -2249,6 +2249,7 @@ # nothing to do return } + set object_type [::xo::db::CrClass get_object_type -item_id $item_id] set parent_object_type [::xo::db::CrClass get_object_type -item_id $new_parent_id] if {$parent_object_type ni $allowed_parent_types} { @@ -2263,6 +2264,13 @@ update cr_child_rels set parent_id = :new_parent_id, relation_tag = :relation_tag where child_id = :item_id } + ::xo::dc dml update_rels_object { + update acs_objects + set context_id = :new_parent_id, + title = :relation_tag || ': ' || :new_parent_id || ' - ' || :item_id + where object_id = (select rel_id from cr_child_rels + where child_id = :item_id) + } } # # clear caches