Index: openacs-4/packages/dotlrn-ecommerce/www/admin/process-purchase.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-ecommerce/www/admin/process-purchase.tcl,v diff -u -N -r1.8 -r1.9 --- openacs-4/packages/dotlrn-ecommerce/www/admin/process-purchase.tcl 22 Aug 2005 17:44:42 -0000 1.8 +++ openacs-4/packages/dotlrn-ecommerce/www/admin/process-purchase.tcl 22 Aug 2005 19:19:39 -0000 1.9 @@ -130,16 +130,16 @@ $page_query [template::list::page_where_clause -name users -key u.user_id -and] }] { - set add_url [export_vars -base "[ad_conn package_url]ecommerce/shopping-cart-add" { product_id user_id participant_id return_url }] - set rel_id [relation::get_id -object_id_one $user_id -object_id_two $participant_id -rel_type "patron_rel"] if { ! [empty_string_p $rel_id] } { - set add_member_url [export_vars -base "[ad_conn package_url]ecommerce/participant-add" { {user_id $participant_id} section_id return_url add_url }] + set add_url [export_vars -base "[ad_conn package_url]ecommerce/shopping-cart-add" { product_id user_id participant_id return_url }] } else { - set add_member_url [export_vars -base [ad_conn package_url]admin/process-purchase-2 { {user_id $participant_id} {patron_id $user_id} section_id community_id return_url }] + set add_url [export_vars -base [ad_conn package_url]admin/process-purchase-2 { {user_id $participant_id} {patron_id $user_id} section_id community_id return_url }] } + set add_member_url [export_vars -base "[ad_conn package_url]ecommerce/participant-add" { {user_id $participant_id} section_id return_url add_url }] + } }