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.472.2.32 -r1.472.2.33
--- openacs-4/packages/xowiki/tcl/xowiki-procs.tcl 1 Feb 2015 15:48:19 -0000 1.472.2.32
+++ openacs-4/packages/xowiki/tcl/xowiki-procs.tcl 2 Feb 2015 12:32:53 -0000 1.472.2.33
@@ -1704,7 +1704,8 @@
if {[catch {[self]::link configure {*}$options} errorMsg]} {
ns_log error "$errorMsg\n$::errorInfo"
- return "
Error during processing of options [list $options] of link of type [[self]::link info class]:
$errorMsg
"
+ return "Error during processing of options [list $options]\
+ of link of type [[self]::link info class]:
$errorMsg
"
} else {
return [self]::link
}
@@ -3871,6 +3872,16 @@
}
my map_categories $category_ids
+ # Problably, categories should also be moved into the
+ # transaction queue.
+ set queue ::__xowiki__transaction_queue([my item_id])
+ if {[info exists $queue]} {
+ foreach cmd [set $queue] {
+ #ns_log notice ".... executing transaction command: $cmd"
+ {*}$cmd
+ }
+ }
+
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]