Index: openacs.org-dev/packages/spam/www/spam-edit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs.org-dev/packages/spam/www/spam-edit.tcl,v
diff -u -r1.1.1.1 -r1.1.1.2
--- openacs.org-dev/packages/spam/www/spam-edit.tcl	9 Jul 2002 17:35:13 -0000	1.1.1.1
+++ openacs.org-dev/packages/spam/www/spam-edit.tcl	8 Oct 2002 15:47:41 -0000	1.1.1.2
@@ -9,7 +9,7 @@
     title:onevalue
     date_widget:onevalue
     time_widget:onevalue
-    context_bar:onevalue
+    context:onevalue
 }
 
 ad_require_permission $spam_id write
@@ -29,6 +29,7 @@
 
 if {$sent_p == "t"} { 
     ad_returnredirect "[spam_base]spam-view?spam_id=$spam_id"
+    ad_script_abort
 }
 
 ad_set_client_property spam "sql_query" $sql_query
@@ -63,14 +64,15 @@
 	set html_text $content
     } else {
 	ad_return_error "invalid content type in spam: $mime_type"
+        ad_script_abort
     }
 }     
 
 set date_widget [ad_dateentrywidget send_date $send_date]
 set time_widget [spam_timeentrywidget send_time $send_time]
 set confirm_target "spam-update"
 set export_vars [export_form_vars spam_id num_recipients confirm_target]
-set context_bar [ad_context_bar "Edit Spam"]
+set context [list "Edit Spam"]
 
 ad_return_template