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.15 -r1.16
--- openacs-4/packages/xowiki/www/admin/set-publish-state.tcl	11 Jul 2018 12:33:22 -0000	1.15
+++ openacs-4/packages/xowiki/www/admin/set-publish-state.tcl	27 Jan 2019 17:07:55 -0000	1.16
@@ -5,7 +5,7 @@
   @creation-date Nov 16, 2006
   @cvs-id $Id$
 
-  @param object_type 
+  @param object_type
   @param query
 } -parameter {
   {-state:required}
@@ -14,19 +14,8 @@
 }
 
 set page [::xo::db::CrClass get_instance_from_db -revision_id $revision_id]
-$page set_live_revision \
-    -revision_id $revision_id \
-    -publish_status $state
+$page update_publish_status $state
 
-::xo::xotcl_object_cache flush $revision_id
-
-if {$state ne "production"} {
-  ::xowiki::notification::do_notifications -revision_id $revision_id
-  ::xowiki::datasource $revision_id
-} else {
-  db_dml flush_syndication {delete from syndication where object_id = :revision_id}
-}
-
 ad_returnredirect $return_url
 ad_script_abort