Index: openacs-4/packages/xowiki/tcl/xowiki-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/xowiki-procs.tcl,v diff -u -r1.485.2.7 -r1.485.2.8 --- openacs-4/packages/xowiki/tcl/xowiki-procs.tcl 3 Sep 2015 08:00:53 -0000 1.485.2.7 +++ openacs-4/packages/xowiki/tcl/xowiki-procs.tcl 24 Sep 2015 12:12:53 -0000 1.485.2.8 @@ -4317,6 +4317,14 @@ category::map_object -remove_old -object_id [my item_id] $category_ids } + Page instproc rename {-old_name -new_name} { + [my package_id] flush_name_cache -name $old_name -parent_id [my parent_id] + next + ns_log notice "----- rename" + #ns_log notice [my serialize] + } + + Page instproc save_data {{-use_given_publish_date:boolean false} old_name category_ids} { #my log "-- [self args]" my unset_temporary_instance_variables @@ -4353,7 +4361,6 @@ my save -use_given_publish_date $use_given_publish_date if {$old_name ne $name} { - $package_id flush_name_cache -name $old_name -parent_id [my parent_id] my rename -old_name $old_name -new_name $name } }