| |
373 |
373 |
{ !"[template::util::currency::get_property whole_part $price].[template::util::currency::get_property fractional_part $price]" == "0.00" } |
| |
374 |
374 |
"Price can not be zero" |
| |
375 |
375 |
} |
| |
376 |
376 |
} |
| |
377 |
377 |
|
| |
378 |
378 |
if { [parameter::get -package_id [ad_conn package_id] -parameter MemberPriceP -default 0] && |
| |
379 |
379 |
! [parameter::get -parameter AllowFreeRegistration -default 0] |
| |
380 |
380 |
} { |
| |
381 |
381 |
lappend validate {member_price |
| |
382 |
382 |
{ ![template::util::negative [template::util::currency::get_property whole_part $member_price]] } |
| |
383 |
383 |
"Member Price can not be negative" |
| |
384 |
384 |
} |
| |
385 |
385 |
} |
| |
386 |
386 |
|
| |
387 |
387 |
if { [parameter::get -package_id [ad_conn package_id] -parameter ShowSectionCategoryFields -default 1 ] } { |
| |
388 |
388 |
lappend validate {categories |
| |
389 |
389 |
{ [dotlrn_ecommerce_check_grade $section_id $categories] } |
| |
390 |
390 |
"Please select one or more grades" |
| |
391 |
391 |
} |
| |
392 |
392 |
} |
| |
393 |
|
set section_name_validate_message "Section code must be less than [expr {100 - [string length "$course_data(name): Section "]}] characters" |
| |
|
393 |
set section_name_validate_message "Section code must be less than [expr {200 - [string length "$course_data(name): Section "]}] characters" |
| |
394 |
394 |
lappend validate {section_name |
| |
395 |
|
{([string length "$course_data(name): Section $section_name"] < 100)} |
| |
|
395 |
{([string length "$course_data(name): Section $section_name"] < 200)} |
| |
396 |
396 |
$section_name_validate_message |
| |
397 |
397 |
} |
| |
398 |
398 |
|
| |
399 |
399 |
ad_form -extend -name add_section -validate $validate -on_request { |
| |
400 |
400 |
# Set session times |
| |
401 |
401 |
foreach s $sessions_list { |
| |
402 |
402 |
array set session $s |
| |
403 |
403 |
template::util::array_to_vars session |
| |
404 |
404 |
|
| |
405 |
405 |
set start_time [split $typical_start_time :] |
| |
406 |
406 |
set ${cal_item_id}_start_time [list {} {} {} [lindex $start_time 0] [lindex $start_time 1] {} {HH24:MI}] |
| |
407 |
407 |
set end_time [split $typical_end_time :] |
| |
408 |
408 |
set ${cal_item_id}_end_time [list {} {} {} [lindex $end_time 0] [lindex $end_time 1] {} {HH24:MI}] |
| |
409 |
409 |
|
| |
410 |
410 |
set ${cal_item_id} $start_date |
| |
411 |
411 |
} |
| |
412 |
412 |
set show_participants_p t |
| |
413 |
413 |
set show_sessions_p t |
| |
414 |
414 |
if { $show_price_option_p } { |
| |
415 |
415 |
set show_price_p t |
