Index: openacs-4/packages/dotlrn-ecommerce/www/ecommerce/participant-change-2.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-ecommerce/www/ecommerce/participant-change-2.tcl,v diff -u -r1.1 -r1.2 --- openacs-4/packages/dotlrn-ecommerce/www/ecommerce/participant-change-2.tcl 8 Jul 2005 11:03:52 -0000 1.1 +++ openacs-4/packages/dotlrn-ecommerce/www/ecommerce/participant-change-2.tcl 8 Jul 2005 16:46:33 -0000 1.2 @@ -42,7 +42,7 @@ } ad_form -name relationship -export { user_id patron_id item_id } -form { - {relationship:text(select) {label "[_ dotlrn-ecommerce.lt_How_are_you_related_t]"} + {relationship:text(select) {label "[subst [_ dotlrn-ecommerce.lt_How_are_you_related_t]]"} {options {$tree_options}}} } -on_submit { set rel_id [db_exec_plsql relate_patron { Index: openacs-4/packages/dotlrn-ecommerce/www/ecommerce/participant-change.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-ecommerce/www/ecommerce/participant-change.adp,v diff -u -r1.1 -r1.2 --- openacs-4/packages/dotlrn-ecommerce/www/ecommerce/participant-change.adp 8 Jul 2005 11:03:52 -0000 1.1 +++ openacs-4/packages/dotlrn-ecommerce/www/ecommerce/participant-change.adp 8 Jul 2005 16:46:33 -0000 1.2 @@ -26,5 +26,7 @@ -

- #dotlrn-ecommerce.lt_Back_to_shopping_cart# + +

+ #dotlrn-ecommerce.lt_Back_to_shopping_cart# + Index: openacs-4/packages/dotlrn-ecommerce/www/ecommerce/participant-change.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-ecommerce/www/ecommerce/participant-change.tcl,v diff -u -r1.1 -r1.2 --- openacs-4/packages/dotlrn-ecommerce/www/ecommerce/participant-change.tcl 8 Jul 2005 11:03:52 -0000 1.1 +++ openacs-4/packages/dotlrn-ecommerce/www/ecommerce/participant-change.tcl 8 Jul 2005 16:46:33 -0000 1.2 @@ -10,6 +10,7 @@ @cvs-id $Id$ } { item_id:integer,notnull,optional + next_url:optional } -properties { } -validate { } -errors { @@ -74,9 +75,9 @@ } { set participant_change_url [export_vars -base participant-change-2 { item_id user_id patron_id }] } -} -set next_url [export_vars -base participant-change-2 { item_id patron_id }] -set patron_name [person::name -person_id $patron_id] -set participant_pays_url [export_vars -base participant-change-2 { item_id {user_id $patron_id} patron_id}] -set admin_p [permission::permission_p -object_id [ad_conn package_id] -privilege "admin"] + set next_url [export_vars -base participant-change-2 { item_id patron_id }] + set patron_name [person::name -person_id $patron_id] + set participant_pays_url [export_vars -base participant-change-2 { item_id {user_id $patron_id} patron_id}] + set admin_p [permission::permission_p -object_id [ad_conn package_id] -privilege "admin"] +}