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.4 -r1.5
--- openacs-4/packages/logger/www/log-delete.tcl	1 Oct 2003 15:21:55 -0000	1.4
+++ openacs-4/packages/logger/www/log-delete.tcl	11 Mar 2004 10:24:21 -0000	1.5
@@ -7,19 +7,20 @@
 } {
     entry_id:integer,multiple
     {confirm_p:boolean 0}
+    {return_url "."}
 }
 
 if { !$confirm_p } {
     set num_entries [llength $entry_id]
 
     if { $num_entries == 0 } {
-        ad_returnredirect .
+        ad_returnredirect $return_url
         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 yes_url "log-delete?[export_vars { entry_id:multiple { confirm_p 1 } return_url}]"
     set no_url "."
 
     return
@@ -30,5 +31,5 @@
     logger::entry::delete -entry_id $entry_id
 }
     
-ad_returnredirect .
+ad_returnredirect $return_url
 ad_script_abort