OpenACS

lars
committed
MAIN:lars:20030313170442
on 13 Mar 03
file upgrade-0.8.4-0.8.5.sql was initially added on branch oacs-4-6.
openacs-4/.../dotlrn-ecommerce/lib/section.tcl (+2 -2)
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