Index: openacs.org-dev/packages/ecommerce/www/mailing-list-remove.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs.org-dev/packages/ecommerce/www/mailing-list-remove.tcl,v
diff -u -r1.1.1.1 -r1.1.1.2
--- openacs.org-dev/packages/ecommerce/www/mailing-list-remove.tcl	9 Jul 2002 17:35:05 -0000	1.1.1.1
+++ openacs.org-dev/packages/ecommerce/www/mailing-list-remove.tcl	8 Oct 2002 15:47:06 -0000	1.1.1.2
@@ -21,7 +21,7 @@
 if {$user_id == 0} {
     set return_url "[ad_conn url]?[export_form_vars category_id subcategory_id subsubcategory_id]"
     ad_returnredirect "/register?[export_url_vars return_url]"
-    return
+    ad_script_abort
 }
 
 # user session tracking
@@ -74,15 +74,17 @@
 
 if { ![info exists mailing_list_name] } {
     ad_return_complaint 1 "You haven't specified which mailing list you want to be removed from."
-    return
+    ad_script_abort
 }
 
 db_dml remove_user_from_mailing_list $delete_string
 
 set re_add_link "<a href=\"mailing-list-add?[export_url_vars category_id subcategory_id subsubcategory_id]\">
    [ec_insecure_location][ec_url]mailing-list-add?[export_url_vars category_id subcategory_id subsubcategory_id]</a>"
 set back_to_account_link "<a href=\"[ec_insecure_location][ec_url]account\">Your Account</a>"
-set continue_shopping_options [ec_continue_shopping_options]
+set title "You unsubscribed from the $mailing_list_name mailing list"
+set context_bar [template::adp_parse [acs_root_dir]/packages/[ad_conn package_key]/www/contextbar [list context_addition [list $title]]]
+set ec_system_owner [ec_system_owner]
 
 db_release_unused_handles
 ad_return_template