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.170 -r1.171 --- openacs-4/packages/xowiki/tcl/xowiki-procs.tcl 13 Sep 2007 20:01:15 -0000 1.170 +++ openacs-4/packages/xowiki/tcl/xowiki-procs.tcl 13 Sep 2007 20:48:20 -0000 1.171 @@ -344,15 +344,23 @@ # tag management, get_tags works on instance or gobally # - Page proc save_tags {-package_id:required -item_id:required -user_id:required tags} { + Page proc save_tags { + -package_id:required + -item_id:required + -revision_id:required + -user_id:required + tags + } { db_dml [my qn delete_tags] \ "delete from xowiki_tags where item_id = $item_id and user_id = $user_id" foreach tag $tags { db_dml [my qn insert_tag] \ "insert into xowiki_tags (item_id,package_id, user_id, tag, time) \ values ($item_id, $package_id, $user_id, :tag, current_timestamp)" } - } + search::queue -object_id $revision_id -event UPDATE + } + Page proc get_tags {-package_id:required -item_id -user_id} { if {[info exists item_id]} { if {[info exists user_id]} {