Index: openacs-4/packages/simulation/tcl/template-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/simulation/tcl/template-procs.tcl,v diff -u -r1.23 -r1.24 --- openacs-4/packages/simulation/tcl/template-procs.tcl 17 Dec 2003 19:13:42 -0000 1.23 +++ openacs-4/packages/simulation/tcl/template-procs.tcl 18 Dec 2003 14:19:28 -0000 1.24 @@ -93,9 +93,15 @@ # Add the column to the insert/update statement switch $attr { enroll_start - enroll_end - send_start_note_date - case_start - case_end { - lappend update_clauses "$attr = to_date('[db_quote $row($attr)]', 'YYYY-MM-DD')" - lappend insert_names $attr - lappend insert_values "to_date('[db_quote $row($attr)]', 'YYYY-MM-DD')" + if { [empty_string_p $row($attr)] } { + lappend update_clauses "$attr = null" + lappend insert_names $attr + lappend insert_values "null" + } else { + lappend update_clauses "$attr = to_date('[db_quote $row($attr)]', 'YYYY-MM-DD')" + lappend insert_names $attr + lappend insert_values "to_date('[db_quote $row($attr)]', 'YYYY-MM-DD')" + } } suggested_duration { if { [empty_string_p $row($attr)] } {