Index: openacs-4/packages/cms/tcl/publish-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/cms/tcl/publish-procs.tcl,v diff -u -N -r1.1 -r1.2 --- openacs-4/packages/cms/tcl/publish-procs.tcl 20 Apr 2001 20:51:09 -0000 1.1 +++ openacs-4/packages/cms/tcl/publish-procs.tcl 27 May 2001 04:39:19 -0000 1.2 @@ -1294,7 +1294,7 @@ # @see proc publish::publish_revision # @see proc publish::unpublish_item -proc publish::set_publish_status { db item_id new_status {revision_id ""} } { +proc publish::set_publish_status { item_id new_status {revision_id ""} } { switch $new_status {