Index: openacs-4/packages/xowiki/www/admin/set-publish-state.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/www/admin/set-publish-state.tcl,v diff -u -N -r1.11 -r1.12 --- openacs-4/packages/xowiki/www/admin/set-publish-state.tcl 23 Jul 2015 03:20:11 -0000 1.11 +++ openacs-4/packages/xowiki/www/admin/set-publish-state.tcl 29 Jul 2015 11:20:28 -0000 1.12 @@ -13,15 +13,11 @@ {-return_url "."} } -set item_id [xo::dc get_value get_item_id \ - {select item_id from cr_revisions where revision_id = :revision_id}] - -set page [::xo::db::CrClass get_instance_from_db -item_id $item_id -revision_id $revision_id] +set page [::xo::db::CrClass get_instance_from_db -revision_id $revision_id] $page set_live_revision \ -revision_id $revision_id \ -publish_status $state -#ns_cache flush xotcl_object_cache ::$item_id ns_cache flush xotcl_object_cache ::$revision_id if {$state ne "production"} {