Index: openacs-4/packages/dotlrn/www/spam.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/spam.tcl,v
diff -u -r1.12 -r1.13
--- openacs-4/packages/dotlrn/www/spam.tcl	16 May 2002 01:22:46 -0000	1.12
+++ openacs-4/packages/dotlrn/www/spam.tcl	16 May 2002 03:56:31 -0000	1.13
@@ -90,7 +90,7 @@
     -widget hidden \
     -value $referer
 
-if {[form is_valid spam_message]} {
+if {[ns_queryexists "form:confirm"]} {
     form get_values spam_message \
         community_id from rel_type subject message send_date referer
 
@@ -147,4 +147,12 @@
     ad_script_abort
 }
 
+if {[form is_valid spam_message]} {
+
+    set confirm_data [form export]
+    append confirm_data {<input type="hidden" name="form:confirm" value="confirm">}
+    template::set_file "[file dir $__adp_stub]/spam-2"
+
+}
+
 ad_return_template