Index: openacs-4/packages/ecommerce/www/checkout.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/checkout.tcl,v diff -u -r1.12 -r1.12.2.1 --- openacs-4/packages/ecommerce/www/checkout.tcl 15 Nov 2003 06:48:11 -0000 1.12 +++ openacs-4/packages/ecommerce/www/checkout.tcl 14 Nov 2004 10:10:55 -0000 1.12.2.1 @@ -10,12 +10,21 @@ usca_p:optional } -# ec_redirect_to_https_if_possible_and_necessary + ec_redirect_to_https_if_possible_and_necessary # Make sure they have an in_basket order, otherwise they've probably # gotten here by pushing Back, so return them to index.tcl -set user_id [ad_verify_and_get_user_id] +# We need them to be logged in +set user_id [ad_conn user_id] + +if {$user_id == 0} { + set return_url "[ad_conn url]?[export_entire_form_as_url_vars]" + ad_returnredirect "/register?[export_url_vars return_url]" + ad_script_abort +} + + set user_session_id [ec_get_user_session_id] ec_create_new_session_if_necessary