Index: openacs-4/packages/project-manager/templates/task-ae.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/project-manager/templates/task-ae.tcl,v diff -u -r1.9 -r1.10 --- openacs-4/packages/project-manager/templates/task-ae.tcl 22 May 2006 06:16:44 -0000 1.9 +++ openacs-4/packages/project-manager/templates/task-ae.tcl 8 Jun 2006 14:48:14 -0000 1.10 @@ -457,10 +457,14 @@ set task_end_date_list [split $end_date(date) "-"] append task_end_date_list " [lrange $task_end_time 3 5]" + + if {$task_end_date_list eq ""} { + set end_date_sql "NULL" + } else { + set end_date(date) $task_end_date_list + set end_date_sql [pm::util::datenvl -value $end_date(date) -value_if_null "null" -value_if_not_null "to_timestamp('$end_date(date)','YYYY MM DD HH24 MI SS')"] + } - set end_date(date) $task_end_date_list - set end_date_sql [pm::util::datenvl -value $end_date(date) -value_if_null "null" -value_if_not_null "to_timestamp('$end_date(date)','YYYY MM DD HH24 MI SS')"] - if {[info exists log_date]} { set log_date_split [split $log_date "-"] set log_date_array(day) [lindex [set log_date_split] 2]