Index: openacs-4/packages/dotlrn-ecommerce/www/ecommerce/checkout-3.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-ecommerce/www/ecommerce/checkout-3.tcl,v diff -u -r1.1 -r1.2 --- openacs-4/packages/dotlrn-ecommerce/www/ecommerce/checkout-3.tcl 23 Jun 2005 12:28:22 -0000 1.1 +++ openacs-4/packages/dotlrn-ecommerce/www/ecommerce/checkout-3.tcl 30 Jun 2005 11:50:07 -0000 1.2 @@ -17,7 +17,7 @@ usca_p:optional referer:optional - user_id:integer,notnull + user_id:integer,notnull,optional participant_id:integer,optional } @@ -34,10 +34,14 @@ # We need them to be logged in -#set user_id [ad_verify_and_get_user_id] +if { ! [info exists user_id] } { + set user_id [ad_verify_and_get_user_id] +} if {$user_id == 0} { - set return_url "[ad_conn url]" - ad_returnredirect "/register?[export_url_vars return_url]" + set form [rp_getform] + ns_set delkey $form user_id + set return_url [ad_return_url] + ad_returnredirect [export_vars -base login {return_url}] ad_script_abort }