Index: openacs-4/packages/dotlrn-ecommerce/catalog/dotlrn-ecommerce.en_US.ISO-8859-1.xml =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-ecommerce/catalog/dotlrn-ecommerce.en_US.ISO-8859-1.xml,v diff -u -r1.36 -r1.37 --- openacs-4/packages/dotlrn-ecommerce/catalog/dotlrn-ecommerce.en_US.ISO-8859-1.xml 16 Aug 2005 10:30:57 -0000 1.36 +++ openacs-4/packages/dotlrn-ecommerce/catalog/dotlrn-ecommerce.en_US.ISO-8859-1.xml 17 Aug 2005 09:31:58 -0000 1.37 @@ -1,5 +1,5 @@ - + Action Add Course @@ -146,6 +146,7 @@ Process Purchase for %section_name% Purchase another Course/Section Purchase another Course/Section + Purchaser's Relationship to Participant Register for Another Course Register for another course Registering for classes with %service_name% is quick and easy @@ -235,6 +236,7 @@ Public Pages Purchase membership Purchaser + Purchaser is Push Quantity Quick Links @@ -259,7 +261,9 @@ Section Name Section Quick Jump a payment method + Set Relationship Shopping Cart + Skip Special Needs subject Subtotal: Index: openacs-4/packages/dotlrn-ecommerce/www/admin/process-purchase-2.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-ecommerce/www/admin/process-purchase-2.adp,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/dotlrn-ecommerce/www/admin/process-purchase-2.adp 17 Aug 2005 09:31:58 -0000 1.1 @@ -0,0 +1,4 @@ + + #dotlrn-ecommerce.lt_Purchasers_Relationsh# + + Index: openacs-4/packages/dotlrn-ecommerce/www/admin/process-purchase-2.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-ecommerce/www/admin/process-purchase-2.tcl,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/dotlrn-ecommerce/www/admin/process-purchase-2.tcl 17 Aug 2005 09:31:58 -0000 1.1 @@ -0,0 +1,81 @@ +# packages/dotlrn-ecommerce/www/ecommerce/participant-change-2.tcl + +ad_page_contract { + + Set participant + + @author Roel Canicula (roelmc@pldtdsl.net) + @creation-date 2005-07-08 + @arch-tag: f8ed6d0a-9e08-4afa-bef7-7202518b36f2 + @cvs-id $Id: process-purchase-2.tcl,v 1.1 2005/08/17 09:31:58 roelc Exp $ +} { + user_id:integer,notnull + patron_id:integer,notnull + section_id:integer,notnull + return_url:notnull + skip:optional +} -properties { +} -validate { +} -errors { +} + +# Add some security checks here + +if { ! [dotlrn::user_p -user_id $user_id] } { + dotlrn::user_add -user_id $user_id +} + +# Get section +db_1row section { + select product_id, community_id + from dotlrn_ecommerce_section + where section_id = :section_id +} + +set rel_id [relation::get_id -object_id_one $patron_id -object_id_two $user_id -rel_type "patron_rel"] + +set add_url [export_vars -base "../ecommerce/shopping-cart-add" { product_id {user_id $patron_id} {participant_id $user_id} return_url }] + +if { ![empty_string_p $rel_id] || $user_id == $patron_id || [exists_and_not_null skip] } { + ad_returnredirect $add_url + ad_script_abort +} else { + set participant_name [person::name -person_id $user_id] + set tree_id [parameter::get -package_id [ad_conn package_id] -parameter PatronRelationshipCategoryTree -default 0] + set tree_options [list {}] + foreach tree [category_tree::get_tree $tree_id] { + lappend tree_options [list [lindex $tree 1] [lindex $tree 0]] + } + + ad_form -name relationship -export { user_id patron_id section_id return_url member_state } -form { + {relationship:text(select) {label "[_ dotlrn-ecommerce.Purchaser_is]"} + {options {$tree_options}}} + {_submit:text(submit) {label "[_ dotlrn-ecommerce.Set_Relationship]"}} + {skip:text(submit) {label "[_ dotlrn-ecommerce.Skip]"}} + } -on_submit { + set rel_id [db_exec_plsql relate_patron { + select acs_rel__new (null, + 'patron_rel', + :patron_id, + :user_id, + null, + null, + null) + }] + category::map_object -remove_old -object_id $rel_id [list $relationship] + +# if { $member_state != "waitinglist approved" } { +# set available_slots [dotlrn_ecommerce::section::available_slots $section_id] + +# if { $available_slots == 0 } { +# # No more slots left, ask user if he wants to go to +# # waiting list +# ad_returnredirect [export_vars -base waiting-list-confirm { product_id user_id return_url }] +# ad_script_abort +# } +# } + + ad_returnredirect [export_vars -base [ad_conn url] { user_id patron_id section_id return_url }] + ad_script_abort + } +} Index: openacs-4/packages/dotlrn-ecommerce/www/admin/process-purchase-course.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-ecommerce/www/admin/process-purchase-course.tcl,v diff -u -r1.14 -r1.15 --- openacs-4/packages/dotlrn-ecommerce/www/admin/process-purchase-course.tcl 16 Jul 2005 12:51:06 -0000 1.14 +++ openacs-4/packages/dotlrn-ecommerce/www/admin/process-purchase-course.tcl 17 Aug 2005 09:31:58 -0000 1.15 @@ -46,7 +46,7 @@ acs_user::get -user_id $user_id -array user_info -set title "Purchase courses/sections for [person::name -person_id $user_id]" +set title "Choose Participant" set next_url [export_vars -base process-purchase-course { {purchaser_id $user_id} participant participant_id section section_id related_user {new_user_p 1} }] @@ -297,32 +297,14 @@ where not ruser is null }] 0 [list "$user_info(first_names) $user_info(last_name) is both purchasing and attending the course" "0"]] lappend related_user_options [list "Purchase for GROUP of participants" -1] + lappend related_user_options [list "Another Participant" -2] ad_form -extend -name "participant" -export { {participant_id 0} } -form { - {-section "Individual Purchase"} + {-section "Choose Participant"} {related_user:integer(radio),optional {label "Related Users"} {options {$related_user_options}}} - {participant:text,optional {label "Search Participant"} {html {onchange "if (this.value != '') { this.form.__refreshing_p.value = 1; } else { this.form.__refreshing_p.value = 0 ; }" size 30}} - {help_text "Enter a string to search names and email addresses.
Or Create an account and return to this form"} - } - {relationship:text(select),optional {label "Relationship"} - {help_text "How is the purchaser related to the participant?"} - {options {$tree_options}} - } {isubmit:text(submit) {label "[_ dotlrn-ecommerce.Continue]"}} - {-section "Group Purchase"} - {name:text,optional {label "Group Name"} {html {size 30}}} - {num_members:integer(text),optional {label "Number of attendees"} {html {size 30}}} - {gsubmit:text(submit) {label "[_ dotlrn-ecommerce.Continue]"}} } - lappend validate {name - { ! [empty_string_p $name] || [template::element::get_value participant related_user] != -1 } - "[_ dotlrn-ecommerce.lt_Please_enter_a_name_f]" - } {num_members - { ! [empty_string_p $num_members] || [template::element::get_value participant related_user] != -1 } - "[_ dotlrn-ecommerce.lt_Please_enter_the_numb]" - } - # lappend validate {participant # { ! [empty_string_p $participant] || [template::element::get_value participant related_user] != -1 || # (![empty_string_p [template::element::get_value participant name]] && @@ -335,28 +317,25 @@ # ![empty_string_p [template::element::get_value participant num_members]]) } # "No users found. Please try again" # } -} elseif { $participant_id } { - acs_user::get -user_id $participant_id -array participant_user +} +# elseif { $participant_id } { +# acs_user::get -user_id $participant_id -array participant_user - set search_url [export_vars -base process-purchase-course { user_id {participant ""} {participant_id 0} section section_id { related_user 0 } new_user_p }] -# {participant_pays_p:boolean(checkbox),optional {label ""} {options {{"Check here if $user_info(first_names) $user_info(last_name) is both purchasing and attending the course" t}}}} - ad_form -extend -name "participant" -export { participant participant_id { related_user $participant_id } } -form { - {-section "Individual Purchase"} - {participant_name:text(inform) {label "Participant"} {value "$participant_user(first_names) $participant_user(last_name) ($participant_user(email))"} - {after_html {Search Participant}} - } - {relationship:text(select),optional {label "Relationship"} - {help_text "How is the purchaser related to the participant?"} - {options {$tree_options}} - } - {isubmit:text(submit) {label "[_ dotlrn-ecommerce.Continue]"}} - {-section "Group Purchase"} - {name:text,optional {label "Group Name"} {html {size 30}}} - {num_members:integer(text),optional {label "Number of attendees"} {html {size 30}}} - {gsubmit:text(submit) {label "[_ dotlrn-ecommerce.Continue]"}} - } +# set search_url [export_vars -base process-purchase-course { user_id {participant ""} {participant_id 0} section section_id { related_user 0 } new_user_p }] +# # {participant_pays_p:boolean(checkbox),optional {label ""} {options {{"Check here if $user_info(first_names) $user_info(last_name) is both purchasing and attending the course" t}}}} +# ad_form -extend -name "participant" -export { participant participant_id { related_user $participant_id } } -form { +# {-section "Individual Purchase"} +# {participant_name:text(inform) {label "Participant"} {value "$participant_user(first_names) $participant_user(last_name) ($participant_user(email))"} +# {after_html {Search Participant}} +# } +# {relationship:text(select),optional {label "Relationship"} +# {help_text "How is the purchaser related to the participant?"} +# {options {$tree_options}} +# } +# {isubmit:text(submit) {label "[_ dotlrn-ecommerce.Continue]"}} +# } -} +# } # else { # set search_url [export_vars -base process-purchase-course { user_id {participant ""} {participant_id 0} section section_id }] # ad_form -extend -name "participant" -export { participant } -form { @@ -381,40 +360,34 @@ # } # } -set maxparticipants [dotlrn_ecommerce::section::maxparticipants $section_id] -set available_slots [dotlrn_ecommerce::section::available_slots $section_id] +#set maxparticipants [dotlrn_ecommerce::section::maxparticipants $section_id] +#set available_slots [dotlrn_ecommerce::section::available_slots $section_id] -if { [empty_string_p $maxparticipants] } { - lappend validate \ - {num_members - {$num_members > 1 || [empty_string_p $num_members] || [template::element::get_value participant related_user] != -1} - "[_ dotlrn-ecommerce.lt_Please_enter_a_value_]" - } -} else { - # it is now allowed to register users even if the course is full, - # they just go to the waiting list +# if { ! [empty_string_p $maxparticipants] } { +# # it is now allowed to register users even if the course is full, +# # they just go to the waiting list - # for groups, just inform the user that the group members will go - # to the waiting list - # DISABLED FOR NOW - groups can't go to the waiting list -# if { ! $waiting_list_p } { - lappend validate \ - {num_members - { $num_members > 1 || [template::element::get_value participant related_user] != -1 } - "[_ dotlrn-ecommerce.lt_Please_enter_a_value_]" - } {num_members - { $num_members <= $available_slots || [empty_string_p $num_members] || [template::element::get_value participant related_user] != -1} - "[subst [_ dotlrn-ecommerce.lt_The_course_only_has_a]]" - } -# if { [template::element::get_value participant related_user] == -1 && [string is integer [template::element::get_value participant num_members]] && [template::element::get_value participant num_members] > 1 && [template::element::get_value participant num_members] > $available_slots } { -# template::element::set_value participant waiting_list_p 1 -# } else { -# template::element::set_value participant waiting_list_p 0 -# } -# } elseif { [template::element::get_value participant related_user] != -1 } { -# template::element::set_value participant waiting_list_p 0 -# } -} +# # for groups, just inform the user that the group members will go +# # to the waiting list +# # DISABLED FOR NOW - groups can't go to the waiting list +# # if { ! $waiting_list_p } { +# lappend validate \ +# {num_members +# { $num_members > 1 || [template::element::get_value participant related_user] != -1 } +# "[_ dotlrn-ecommerce.lt_Please_enter_a_value_]" +# } {num_members +# { $num_members <= $available_slots || [empty_string_p $num_members] || [template::element::get_value participant related_user] != -1} +# "[subst [_ dotlrn-ecommerce.lt_The_course_only_has_a]]" +# } +# # if { [template::element::get_value participant related_user] == -1 && [string is integer [template::element::get_value participant num_members]] && [template::element::get_value participant num_members] > 1 && [template::element::get_value participant num_members] > $available_slots } { +# # template::element::set_value participant waiting_list_p 1 +# # } else { +# # template::element::set_value participant waiting_list_p 0 +# # } +# # } elseif { [template::element::get_value participant related_user] != -1 } { +# # template::element::set_value participant waiting_list_p 0 +# # } +# } set return_url [ad_return_url] ad_form -extend -name "participant" -export { user_id return_url new_user_p } -validate $validate -form { @@ -425,26 +398,26 @@ set participant_id $related_user } - if { ! [empty_string_p $relationship] && $related_user != 0 && ([empty_string_p $name] || [empty_string_p $num_members]) } { - set rel_id [relation::get_id -object_id_one $user_id -object_id_two $participant_id -rel_type "patron_rel"] +# if { ! [empty_string_p $relationship] && $related_user != 0 } { +# 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] } { - # Create patron relationship - # Roel 06/15: Reversed users since we select purchasers - # first now - set rel_id [db_exec_plsql relate_patron { - select acs_rel__new (null, - 'patron_rel', - :user_id, - :participant_id, - null, - null, - null) - }] - } +# if { [empty_string_p $rel_id] } { +# # Create patron relationship +# # Roel 06/15: Reversed users since we select purchasers +# # first now +# set rel_id [db_exec_plsql relate_patron { +# select acs_rel__new (null, +# 'patron_rel', +# :user_id, +# :participant_id, +# null, +# null, +# null) +# }] +# } - category::map_object -remove_old -object_id $rel_id [list $relationship] - } +# category::map_object -remove_old -object_id $rel_id [list $relationship] +# } db_1row product { select product_id @@ -453,43 +426,12 @@ } set item_count 1 - if { $related_user == -1 && ! [empty_string_p $name] && ! [empty_string_p $num_members] } { - set group_id [db_nextval acs_object_id_seq] - set unique_group_name "${name}_${group_id}" - - # Test once then give up - if { [db_string group {select 1 from groups where group_name = :unique_group_name} -default 0] } { - set group_id [db_nextval acs_object_id_seq] - set unique_group_name "${name}_${group_id}" - } - - group::new -group_id $group_id -group_name $unique_group_name - set section_community_id [db_string get_community_id "select community_id from dotlrn_ecommerce_section where section_id=:section_id" -default ""] - if {[string equal "" $section_community_id]} { - # FIXME error, do something clever here - } - for { set i 1 } { $i <= $num_members } { incr i } { - array set new_user [auth::create_user \ - -username "${name} ${group_id} Attendee $i" \ - -email "[util_text_to_url -text ${name}-${group_id}-attendee-${i}]@mos.zill.net" \ - -first_names "$name" \ - -last_name "Attendee $i" \ - -nologin] - - if { [info exists new_user(user_id)] } { - relation_add -member_state approved membership_rel $group_id $new_user(user_id) - } else { - ad_return_complaint 1 "There was a problem creating the account \"$name $group_id Attendee $i\"." - ad_script_abort - } - } - relation_add relationship $group_id $section_community_id - - set participant_id $group_id - set item_count $num_members - - ad_returnredirect [export_vars -base "../ecommerce/shopping-cart-add" { product_id user_id participant_id item_count return_url }] + if { $related_user == -1 } { + ad_returnredirect [export_vars -base "process-purchase-group" { section_id user_id return_url return_url }] ad_script_abort + } elseif { $related_user == -2 } { + ad_returnredirect [export_vars -base "process-purchase" { section_id user_id return_url return_url }] + ad_script_abort } set add_url [export_vars -base "../ecommerce/shopping-cart-add" { product_id user_id participant_id item_count return_url }] Index: openacs-4/packages/dotlrn-ecommerce/www/admin/process-purchase-group.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-ecommerce/www/admin/process-purchase-group.adp,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/dotlrn-ecommerce/www/admin/process-purchase-group.adp 17 Aug 2005 09:31:58 -0000 1.1 @@ -0,0 +1,4 @@ + + Group Purchase + + Index: openacs-4/packages/dotlrn-ecommerce/www/admin/process-purchase-group.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-ecommerce/www/admin/process-purchase-group.tcl,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/dotlrn-ecommerce/www/admin/process-purchase-group.tcl 17 Aug 2005 09:31:58 -0000 1.1 @@ -0,0 +1,82 @@ +# packages/dotlrn-ecommerce/www/admin/participant-purchase-group.tcl + +ad_page_contract { + + Separate page for group purchase + + @author Roel Canicula (roelmc@pldtdsl.net) + @creation-date 2005-08-16 + @arch-tag: 2df2c4c6-a1cc-4bc3-b62b-a26d1c9327bd + @cvs-id $Id: process-purchase-group.tcl,v 1.1 2005/08/17 09:31:58 roelc Exp $ +} { + user_id:integer,notnull + section_id:integer,notnull + return_url:notnull +} -properties { +} -validate { +} -errors { +} + +set available_slots [dotlrn_ecommerce::section::available_slots $section_id] + +lappend validate {name + { ! [empty_string_p $name] } + "[_ dotlrn-ecommerce.lt_Please_enter_a_name_f]" +} {num_members + { ! [empty_string_p $num_members] } + "[_ dotlrn-ecommerce.lt_Please_enter_the_numb]" +} {num_members + { $num_members <= $available_slots } + "[subst [_ dotlrn-ecommerce.lt_The_course_only_has_a]]" +} + +ad_form -name group_purchase -export { user_id section_id return_url } -validate $validate -form { + {-section "Group Purchase"} + {name:text,optional {label "Group Name"} {html {size 30}}} + {num_members:integer(text),optional {label "Number of attendees"} {html {size 30}}} + {gsubmit:text(submit) {label "[_ dotlrn-ecommerce.Continue]"}} +} -on_submit { + set item_count 1 + set group_id [db_nextval acs_object_id_seq] + set unique_group_name "${name}_${group_id}" + + db_1row product { + select product_id + from dotlrn_ecommerce_section + where section_id = :section_id + } + + # Test once then give up + if { [db_string group {select 1 from groups where group_name = :unique_group_name} -default 0] } { + set group_id [db_nextval acs_object_id_seq] + set unique_group_name "${name}_${group_id}" + } + + group::new -group_id $group_id -group_name $unique_group_name + set section_community_id [db_string get_community_id "select community_id from dotlrn_ecommerce_section where section_id=:section_id" -default ""] + if {[string equal "" $section_community_id]} { + # FIXME error, do something clever here + } + for { set i 1 } { $i <= $num_members } { incr i } { + array set new_user [auth::create_user \ + -username "${name} ${group_id} Attendee $i" \ + -email "[util_text_to_url -text ${name}-${group_id}-attendee-${i}]@mos.zill.net" \ + -first_names "$name" \ + -last_name "Attendee $i" \ + -nologin] + + if { [info exists new_user(user_id)] } { + relation_add -member_state approved membership_rel $group_id $new_user(user_id) + } else { + ad_return_complaint 1 "There was a problem creating the account \"$name $group_id Attendee $i\"." + ad_script_abort + } + } + relation_add relationship $group_id $section_community_id + + set participant_id $group_id + set item_count $num_members + + ad_returnredirect [export_vars -base "../ecommerce/shopping-cart-add" { product_id user_id participant_id item_count return_url }] + ad_script_abort +} \ No newline at end of file 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 -r1.6 -r1.7 --- openacs-4/packages/dotlrn-ecommerce/www/admin/process-purchase.tcl 16 Jul 2005 12:51:06 -0000 1.6 +++ openacs-4/packages/dotlrn-ecommerce/www/admin/process-purchase.tcl 17 Aug 2005 09:31:58 -0000 1.7 @@ -9,11 +9,13 @@ @arch-tag: d78f1eb7-313d-4c1a-8f1c-6be5c4f0765a @cvs-id $Id$ } { + user_id:integer,notnull {orderby email_address} {page 1} {search:trim ""} section_id:integer,optional - {return_url ""} + return_url + next_url:optional } -properties { } -validate { } -errors { @@ -38,35 +40,56 @@ set return_url [export_vars -base [ad_conn package_url]admin/course-info {course_id}] } - ad_form -name "search" -export { section_id patron return_url } -form { + ad_form -name "search" -export { user_id section_id return_url } -form { {search:text {label "Search existing users"}} } set add_action "Choose Participant" if { ! [empty_string_p $search] } { - set page_query { - select user_id, email, first_names, last_name - from dotlrn_users - where lower(first_names||' '||last_name||' '||email) like '%'||lower(:search)||'%' + set page_query [subst { + select u.user_id as participant_id, u.email, u.first_names, u.last_name, a.phone, a.line1, a.line2 + from dotlrn_users u + left join (select * + from ec_addresses + where address_id + in (select max(address_id) + from ec_addresses + group by user_id)) a + on (u.user_id = a.user_id) + where (lower(first_names) like lower(:search)||'%' or + lower(last_name) like lower(:search)||'%' or + lower(email) like lower(:search)||'%' or + lower(phone) like '%'||lower(:search)||'%') + and not u.user_id + in (select user_id + from dotlrn_member_rels_full + where community_id = :community_id) + }] - and not user_id - in (select user_id - from dotlrn_member_rels_full - where community_id = :community_id)} +# set page_query { +# select user_id as participant_id, email, first_names, last_name +# from dotlrn_users +# where lower(first_names||' '||last_name||' '||email) like '%'||lower(:search)||'%' + +# and user_id != :user_id +# and not user_id +# in (select user_id +# from dotlrn_member_rels_full +# where community_id = :community_id)} template::list::create \ -name "users" \ -multirow "users" \ -no_data "No users found" \ - -key user_id \ + -key participant_id \ -page_query $page_query \ -page_size 50 \ -page_flush_p 1 \ -elements { - user_id { + participant_id { label "User ID" } email { @@ -78,6 +101,18 @@ last_name { label "Last Name" } + phone { + label "Phone Number" + } + address { + label "Address" + display_template { + @users.line1@ + +
@users.line2@ + + } + } action { html { nowrap } display_template { @@ -88,20 +123,20 @@ -filters { search {} section_id {} + user_id {} } db_multirow -extend { add_member_url } users users [subst { $page_query - [template::list::page_where_clause -name users -key user_id -and] + [template::list::page_where_clause -name users -key u.user_id -and] }] { -# set add_member_url [export_vars -base participant-add { user_id {referer $return_url} return_url section_id community_id }] -# set return_url_2 [export_vars -base "[apm_package_url_from_key dotlrn-ecommerce]admin/membership-add" { user_id section_id community_id {referer $return_url} }] - set add_member_url [export_vars -base participant-add { user_id return_url section_id community_id }] + set add_url [export_vars -base "../ecommerce/shopping-cart-add" { product_id user_id participant_id return_url }] + set add_member_url [export_vars -base "../ecommerce/participant-add" { {user_id $participant_id} section_id return_url add_url }] + } } set add_url [export_vars -base "ecommerce/shopping-cart-add" { product_id }] set addpatron_url [export_vars -base "membership-add" { user_id section_id community_id {referer $return_url} }] -} - -set next_url [export_vars -base membership-add { section_id community_id { referer $return_url} }] \ No newline at end of file + set next_url [export_vars -base process-purchase-2 { {patron_id $user_id} section_id community_id return_url }] +} \ No newline at end of file Index: openacs-4/packages/dotlrn-ecommerce/www/ecommerce/shopping-cart.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-ecommerce/www/ecommerce/shopping-cart.adp,v diff -u -r1.8 -r1.9 --- openacs-4/packages/dotlrn-ecommerce/www/ecommerce/shopping-cart.adp 11 Aug 2005 13:10:52 -0000 1.8 +++ openacs-4/packages/dotlrn-ecommerce/www/ecommerce/shopping-cart.adp 17 Aug 2005 09:31:58 -0000 1.9 @@ -45,7 +45,8 @@ @in_cart.patron_name@ - #dotlrn-ecommerce.lt_Participant_pays_for_# + #dotlrn-ecommerce.lt_Participant_pays_for_# +