Index: openacs-4/packages/cms/www/modules/items/unpublish.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/cms/www/modules/items/unpublish.tcl,v
diff -u -r1.2 -r1.2.14.1
--- openacs-4/packages/cms/www/modules/items/unpublish.tcl	24 May 2001 01:30:52 -0000	1.2
+++ openacs-4/packages/cms/www/modules/items/unpublish.tcl	6 Jun 2005 15:57:43 -0000	1.2.14.1
@@ -1,15 +1,15 @@
-# unpublish.tcl
-# Publish a revision to the file system.
+ad_page_contract {
 
-request create
-request set_param item_id -datatype integer
+    @author Michael Steigman
+    @creation-date May 2005
+} {
+    { item_id:naturalnum }
+    { mount_point "sitemap" }
+    { item_props_tab:optional "editing" }
+}
 
-publish::unpublish_item $item_id
+content::item::unset_live_revision -item_id $item_id
+#publish::unpublish_item $item_id
 
-db_transaction {
-    db_exec_plsql unset_live_revision "begin 
-           content_item.unset_live_revision( :item_id );
-         end;"
-}
+ad_returnredirect [export_vars -base index {item_id item_props_tab mount_point}]
 
-template::forward "index?item_id=$item_id"