Index: openacs-4/packages/logger/www/log-delete.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/logger/www/log-delete.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/logger/www/log-delete.tcl	6 May 2003 17:36:53 -0000	1.2
+++ openacs-4/packages/logger/www/log-delete.tcl	18 Sep 2003 10:43:12 -0000	1.3
@@ -5,11 +5,29 @@
     @creation-date 2003-04-24
     @cvs-id $Id$
 } {
-    entry_id:integer
+    entry_id:integer,multiple
+    {confirm_p:boolean 0}
 }
 
-permission::require_permission -object_id $entry_id -privilege delete
+if { !$confirm_p } {
+    set num_entries [llength $entry_id]
 
-logger::entry::delete -entry_id $entry_id
+    if { $num_entries == 0 } {
+        ad_returnredirect .
+        return
+    }
 
+    set page_title "Delete Log [ad_decode $num_entries 1 "Entry" "Entries"]"
+    set context [list $page_title]
+    set yes_url "log-delete?[export_vars { entry_id:multiple { confirm_p 1 } }]"
+    set no_url "."
+
+    return
+}
+
+foreach entry_id $entry_id {
+    permission::require_permission -object_id $entry_id -privilege delete
+    logger::entry::delete -entry_id $entry_id
+}
+    
 ad_returnredirect .