Index: openacs-4/packages/cms/www/modules/items/publish-status.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/cms/www/modules/items/publish-status.tcl,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/cms/www/modules/items/publish-status.tcl	17 May 2003 10:25:07 -0000	1.7
+++ openacs-4/packages/cms/www/modules/items/publish-status.tcl	13 Apr 2005 20:15:19 -0000	1.8
@@ -4,9 +4,15 @@
 request create
 request set_param item_id -datatype integer
 
-# permissions check - requires cm_item_workflow
-content::check_access $item_id cm_examine -user_id [User::getID] 
+set user_id [auth::require_login]
+permission::require_permission -party_id $user_id \
+    -object_id $item_id -privilege read
 
+set can_edit_status_p [permission::permission_p \
+			   -party_id $user_id \
+			   -object_id $item_id \
+			   -privilege write]
+
 # Query for publish status and release schedule, if any
 
 db_1row get_info "" -column_array info
@@ -60,7 +66,7 @@
 
 # determine if there is an unfinished workflow
 
-set unfinished_workflow_exists [db_string unfinished_exists ""]
+#set unfinished_workflow_exists [db_string unfinished_exists ""]
 
 # determine if child type constraints have been satisfied