Index: openacs-4/packages/cms/www/modules/items/delete.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/cms/www/modules/items/delete.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/cms/www/modules/items/delete.tcl	20 Apr 2001 20:51:10 -0000	1.1
+++ openacs-4/packages/cms/www/modules/items/delete.tcl	24 May 2001 23:57:17 -0000	1.2
@@ -4,14 +4,13 @@
 request set_param item_id -datatype keyword
 request set_param mount_point -datatype keyword -value sitemap
 
-set db [template::begin_db_transaction]
+db_transaction {
+    # permissions check - must have cm_write permissions on item to delete
+    content::check_access $item_id cm_write -user_id [User::getID]
 
-# permissions check - must have cm_write permissions on item to delete
-content::check_access $item_id cm_write -user_id [User::getID]
-
-# get all the parent_id's of the items being deleted
-#   because we need to flush the paginator cache for each of these folders
-template::query flush_list onelist "
+    # get all the parent_id's of the items being deleted
+    #   because we need to flush the paginator cache for each of these folders
+    template::query flush flush_list onelist "
   select
     parent_id
   from
@@ -20,16 +19,14 @@
     resolved_id = :item_id
 " 
 
-template::query item_delete dml "
+    db_exec_plsql item_delete "
   begin 
     content_item.delete(
       item_id => :item_id
     ); 
   end;" 
+}
 
-template::end_db_transaction
-template::release_db_handle
-
 # flush cache
 set root_id [cm::modules::${mount_point}::getRootFolderID]
 set flushed_list [list]