OpenACS

alexk
committed
oacs-5-1:alexk:20050617234007
on 18 Jun 05
Fixing an earlier validation patch I made that would not let you enter a "--" to get a task with no hard deadline. My apologies to anyone w… Show more
Fixing an earlier validation patch I made that would not let you enter a "--" to get a task with no hard deadline.  My apologies to anyone who were running a cvs copy and got bit by this bug.

Show less

openacs-4/.../www/task-add-edit-2.tcl (+1 -1)
52 52 }
53 53
54 54 # ---------------------------------------------------------------
55 55 # Set up
56 56 # ---------------------------------------------------------------
57 57 set user_id       [ad_maybe_redirect_for_registration]
58 58 set package_id    [ad_conn package_id]
59 59 set peeraddr      [ad_conn peeraddr]
60 60
61 61 # permissions
62 62 permission::require_permission -party_id $user_id -object_id $package_id -privilege read
63 63
64 64 set use_uncertain_completion_times_p [parameter::get -parameter "UseUncertainCompletionTimesP" -default "1"]
65 65
66 66 set hours_day [pm::util::hours_day]
67 67 set use_days_p     [parameter::get -parameter "UseDayInsteadOfHour" -default "t"]
68 68
69 69 foreach i $number {
70 70
71 71     #validate date
72       if { ![regexp {^\d{4}(\-)\d{1,2}(\-)\d{1,2}$} $date] } {
  72     if { ![regexp {^\d{4}(\-)\d{1,2}(\-)\d{1,2}$} $date] && $date != "--" && $date != ""} {
73 73         ad_return_error [_ project-manager.Bad_deadline] [_ project-manager.Bad_deadline_message]
74 74     }
75 75
76 76     set date_$i [split [lindex $date [expr $i-1]] "-"]
77 77     set end_date_${i}(day)    [lindex [set date_$i] 2]
78 78     set end_date_${i}(month)  [lindex [set date_$i] 1]
79 79     set end_date_${i}(year)   [lindex [set date_$i] 0]
80 80     set end_date_${i}(format) ""
81 81
82 82     ad_page_contract_filter_proc_date end_date_$i end_date_$i
83 83
84 84
85 85     set log_date_$i [split [lindex $log_date [expr $i-1]] "-"]
86 86    
87 87     set log_date_${i}_day    [lindex [set log_date_$i] 2]
88 88     set log_date_${i}_month  [lindex [set log_date_$i] 1]
89 89     set log_date_${i}_year   [lindex [set log_date_$i] 0]
90 90     set log_date_${i}_format ""
91 91
92 92