Index: openacs-4/packages/cms/www/modules/items/publish.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/cms/www/modules/items/publish.tcl,v diff -u -N -r1.6 -r1.6.12.1 --- openacs-4/packages/cms/www/modules/items/publish.tcl 16 Aug 2002 03:57:48 -0000 1.6 +++ openacs-4/packages/cms/www/modules/items/publish.tcl 6 Jun 2005 15:53:03 -0000 1.6.12.1 @@ -1,38 +1,36 @@ -# publish.tcl -# Publish a revision to the file system. +ad_page_contract { -request create -request set_param revision_id -datatype integer + @author Michael Steigman + @creation-date May 2005 +} { + { item_id:naturalnum } + { revision_id:naturalnum } + { mount_point "sitemap" } + { item_props_tab:optional "publishing" } +} -set root_path [ns_info pageroot] +content::item::set_live_revision -revision_id $revision_id +ad_returnredirect [export_vars -base index {item_id item_props_tab mount_point}] -db_transaction { +# set root_path [ns_info pageroot] - db_1row get_iteminfo "" +# db_transaction { - if { [string equal $publish_p t] } { +# db_1row get_iteminfo "" - # publish::publish_revision $revision_id +# if { [string equal $publish_p t] } { - db_exec_plsql set_live_revision " - begin - content_item.set_live_revision( - revision_id => :revision_id - ); - end;" +# # publish::publish_revision $revision_id - publish::unpublish_item $item_id +# db_exec_plsql set_live_revision {} +# publish::unpublish_item $item_id - } else { +# } else { - db_abort_transaction +# db_abort_transaction +# util_user_message -message "This item is not in a publishable state" - set msg "This item is not in a publishable state" - set return_url "index?item_id=$item_id" - set passthrough { { item_id $item_id } } +# } +# } - content::show_error $msg $return_url $passthrough - } -} -template::forward "index?item_id=$item_id"