Index: openacs.org-dev/packages/forums/www/moderate/message-delete.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs.org-dev/packages/forums/www/moderate/message-delete.tcl,v
diff -u -r1.1.1.1 -r1.1.1.2
--- openacs.org-dev/packages/forums/www/moderate/message-delete.tcl	9 Jul 2002 17:35:09 -0000	1.1.1.1
+++ openacs.org-dev/packages/forums/www/moderate/message-delete.tcl	8 Oct 2002 15:47:12 -0000	1.1.1.2
@@ -2,30 +2,39 @@
 
     Delete a Message
 
-    @author Ben Adida (ben@openforce)
+    @author Ben Adida (ben@openforce.net)
     @creation-date 2002-05-24
-    @version $Id$
+    @cvs-id $Id$
 
 } {
     message_id:integer,notnull
     {return_url ""}
     {confirm_p 0}
 }
 
+set table_border_color [parameter::get -parameter table_border_color]
+
 # Check that the user can moderate the forum
 forum::security::require_moderate_message -message_id $message_id
 
 # Select the stuff
 forum::message::get -message_id $message_id -array message
 
-# Confirm?
-if {!$confirm_p} {
-    set url_vars [export_url_vars message_id return_url]
-    ad_return_template
-} else {
+# Confirmed?
+if {$confirm_p} {
     # Delete the message and all children
     forum::message::delete -message_id $message_id
     
     # Redirect to the forum
     ad_returnredirect "../forum-view?forum_id=$message(forum_id)"
+    ad_script_abort
 }
+
+set url_vars [export_url_vars message_id return_url]
+
+ad_return_template
+
+
+
+
+