Index: openacs.org-dev/packages/spam/www/admin/spam-edit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs.org-dev/packages/spam/www/admin/spam-edit.tcl,v
diff -u -r1.1.1.1 -r1.1.1.2
--- openacs.org-dev/packages/spam/www/admin/spam-edit.tcl	9 Jul 2002 17:35:13 -0000	1.1.1.1
+++ openacs.org-dev/packages/spam/www/admin/spam-edit.tcl	8 Oct 2002 15:47:41 -0000	1.1.1.2
@@ -10,7 +10,7 @@
     title:onevalue
     date_widget:onevalue
     time_widget:onevalue
-    context_bar:onevalue
+    context:onevalue
 }
 
 # grab the spam out of the table: with the most recent content revisions
@@ -28,6 +28,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
@@ -76,7 +77,7 @@
 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