Index: openacs-4/packages/cms/www/modules/sitemap/delete-items.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/cms/www/modules/sitemap/delete-items.tcl,v
diff -u -N -r1.3 -r1.4
--- openacs-4/packages/cms/www/modules/sitemap/delete-items.tcl	27 May 2001 00:22:34 -0000	1.3
+++ openacs-4/packages/cms/www/modules/sitemap/delete-items.tcl	30 May 2001 22:56:27 -0000	1.4
@@ -18,7 +18,8 @@
 set user_id [User::getID]
 
 # get title, content_type, path, item_id of each marked item
-set query "
+
+template::query get_marked_items marked_items multirow "
   select
     item_id,
     nvl(content_item.get_title(item_id),name) title, 
@@ -40,7 +41,6 @@
     -- this way parents are deleted after their children
     item_id desc
 "
-query marked_items multirow $query
 
 
 
@@ -127,7 +127,7 @@
             #   something_id => :del_item_id
             # );
 
-            if { [catch { db_dml delete_items "
+            if { [catch { db_exec_plsql delete_items "
 	  begin
 	  $delete_proc (
 	    $delete_key => :del_item_id