Index: openacs-4/packages/dotlrn-ecommerce/lib/section.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-ecommerce/lib/section.tcl,v diff -u -r1.10 -r1.11 --- openacs-4/packages/dotlrn-ecommerce/lib/section.tcl 16 Jul 2005 12:51:06 -0000 1.10 +++ openacs-4/packages/dotlrn-ecommerce/lib/section.tcl 20 Jul 2005 11:35:33 -0000 1.11 @@ -225,6 +225,7 @@ # DEDS: waiting list notify ad_form -extend -name add_section -form { {notify_waiting_number:text,optional {label "Notify admin when waiting list reaches:"} {html {size 5 maxlength 3}}} + {show_participants_p:text(radio) {label "Show Number of Participants"} {options {{Yes t} {No f}}}} } lappend validate {notify_waiting_number { [empty_string_p $notify_waiting_number] || [regexp {^(0*)(([1-9][0-9]*))$} $notify_waiting_number match zeros value] } @@ -308,6 +309,7 @@ set ${cal_item_id} $start_date } + set show_participants_p t } -new_request { set product_id 0 set price [template::util::currency::create "$" "0" "." "00" ] @@ -489,8 +491,8 @@ # Use item_id as course_id coz course_id is the revision and # its easier to keep track of the item_id db_dml add_section { - insert into dotlrn_ecommerce_section(section_id, course_id, section_name, community_id,product_id, notify_waiting_number) values - (:section_id, :item_id, :section_name, :community_id, :product_id, :notify_waiting_number) + insert into dotlrn_ecommerce_section(section_id, course_id, section_name, community_id,product_id, notify_waiting_number, show_participants_p) values + (:section_id, :item_id, :section_name, :community_id, :product_id, :notify_waiting_number, :show_participants_p) } # for this to work, dotlrn_eccomerce_section must be an object @@ -562,7 +564,8 @@ db_dml update_section { update dotlrn_ecommerce_section set section_name = :section_name, - notify_waiting_number = :notify_waiting_number + notify_waiting_number = :notify_waiting_number, + show_participants_p = :show_participants_p where section_id = :section_id }