Index: openacs-4/packages/ecommerce/www/payment.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/payment.tcl,v diff -u -r1.4 -r1.5 --- openacs-4/packages/ecommerce/www/payment.tcl 26 May 2002 04:36:50 -0000 1.4 +++ openacs-4/packages/ecommerce/www/payment.tcl 17 Sep 2002 03:36:34 -0000 1.5 @@ -51,7 +51,7 @@ # No rows came back, so they probably got here by pushing "Back", # so just redirect them to index.tcl - ad_returnredirect index.tcl + ad_returnredirect index return } @@ -70,7 +70,7 @@ # otherwise they've probably gotten here via url surgery, so # redirect them to checkout.tcl - ad_returnredirect checkout.tcl + ad_returnredirect checkout return } @@ -99,7 +99,7 @@ select count(*) from ec_items where order_id=:order_id"] == 0 } { - ad_returnredirect shopping-cart.tcl + ad_returnredirect shopping-cart return } @@ -131,7 +131,7 @@ # Now get the other necessary information -set form_action [ec_securelink [ec_url]process-payment.tcl] +set form_action [ec_securelink [ec_url]process-payment # ec_order_cost returns price + shipping + tax - gift_certificate BUT # no gift certificates have been applied to in_basket orders, so this @@ -227,5 +227,7 @@ append old_cards_to_choose_from "" } +set context_bar [template::adp_parse [acs_root_dir]/packages/[ad_conn package_key]/www/contextbar [list context_addition [list "Completing Your Order"]]] +set ec_system_owner [ec_system_owner] db_release_unused_handles ad_return_template