Index: openacs.org-dev/packages/ecommerce/www/review-submit.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs.org-dev/packages/ecommerce/www/review-submit.tcl,v diff -u -r1.1.1.1 -r1.1.1.2 --- openacs.org-dev/packages/ecommerce/www/review-submit.tcl 9 Jul 2002 17:35:05 -0000 1.1.1.1 +++ openacs.org-dev/packages/ecommerce/www/review-submit.tcl 8 Oct 2002 15:47:06 -0000 1.1.1.2 @@ -4,7 +4,7 @@ @author @creation-date - @cvs-id review-submit.tcl,v 3.2.2.6 2000/08/18 21:46:35 stevenp Exp + @cvs-id $Id$ @author ported by Jerry Asher (jerry@theashergroup.com) @author revised by Bart Teeuwisse @revision-date April 2002 @@ -20,7 +20,7 @@ if {$user_id == 0} { set return_url "[ad_conn url]?[export_url_vars product_id usca_p]" ad_returnredirect "/register?[export_url_vars return_url]" - return + ad_script_abort } # user session tracking @@ -39,6 +39,8 @@ lappend altered_prev_args_list $product_name set rating_widget [ec_rating_widget] +set context_bar [template::adp_parse [acs_root_dir]/packages/[ad_conn package_key]/www/contextbar [list context_addition [list "Write Your Own Review"]]] +set ec_system_owner [ec_system_owner] db_release_unused_handles ad_return_template