Index: openacs-4/packages/calendar/tcl/calendar-2-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/tcl/Attic/calendar-2-procs.tcl,v diff -u -r1.8 -r1.9 --- openacs-4/packages/calendar/tcl/calendar-2-procs.tcl 10 Sep 2002 22:22:31 -0000 1.8 +++ openacs-4/packages/calendar/tcl/calendar-2-procs.tcl 18 Nov 2002 18:01:10 -0000 1.9 @@ -13,8 +13,9 @@ {-sql_date:required} {-format:required} } { - # for now, we recognize only "YYYY-MM-DD" "HH12:MIam" and "HH24:MI" - + + } { + # for now, we recognize only "YYYY-MM-DD" "HH12:MIam" and "HH24:MI". set date [template::util::date::create] switch -exact -- $format { @@ -49,6 +50,9 @@ set date [template::util::date::set_property hours $date $sql_date] set date [template::util::date::set_property minutes $date 0] } + default { + set date [template::util::date::set_property ansi $date $sql_date] + } } return $date