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.1 -r1.2
--- openacs-4/packages/cms/www/modules/items/unpublish.tcl	20 Apr 2001 20:51:10 -0000	1.1
+++ openacs-4/packages/cms/www/modules/items/unpublish.tcl	24 May 2001 01:30:52 -0000	1.2
@@ -4,15 +4,12 @@
 request create
 request set_param item_id -datatype integer
 
-set sql "begin 
+publish::unpublish_item $item_id
+
+db_transaction {
+    db_exec_plsql unset_live_revision "begin 
            content_item.unset_live_revision( :item_id );
          end;"
+}
 
-publish::unpublish_item $item_id
-
-set db [template::begin_db_transaction]
-template::query unset_live_revision dml $sql
-template::end_db_transaction
-template::release_db_handle
-
-template::forward "index?item_id=$item_id"
\ No newline at end of file
+template::forward "index?item_id=$item_id"