Index: openacs-4/packages/ecommerce/www/payment.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/payment.tcl,v diff -u -r1.5 -r1.6 --- openacs-4/packages/ecommerce/www/payment.tcl 17 Sep 2002 03:36:34 -0000 1.5 +++ openacs-4/packages/ecommerce/www/payment.tcl 18 Sep 2002 21:33:46 -0000 1.6 @@ -22,7 +22,7 @@ if {$user_id == 0} { set return_url "[ad_conn url]" ad_returnredirect "/register?[export_url_vars return_url]" - return + ad_script_abort } # Make sure they have an in_basket order, otherwise they've probably @@ -52,7 +52,7 @@ # so just redirect them to index.tcl ad_returnredirect index - return + ad_script_abort } if { $order_owner != $user_id } { @@ -71,7 +71,7 @@ # redirect them to checkout.tcl ad_returnredirect checkout - return + ad_script_abort } if { [empty_string_p $address_id] } { @@ -87,7 +87,7 @@ and i.order_id = :order_id group by no_shipping_avail_p"]} { ad_returnredirect [ec_securelink [ec_url]checkout] - return + ad_script_abort } } @@ -100,7 +100,7 @@ from ec_items where order_id=:order_id"] == 0 } { ad_returnredirect shopping-cart - return + ad_script_abort } # Everything is ok now; the user has a non-empty in_basket order and