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"] +}