Index: openacs-4/packages/acs-templating/tcl/date-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/date-procs.tcl,v diff -u -r1.8 -r1.8.2.1 --- openacs-4/packages/acs-templating/tcl/date-procs.tcl 5 Feb 2002 02:10:55 -0000 1.8 +++ openacs-4/packages/acs-templating/tcl/date-procs.tcl 10 Mar 2002 00:00:56 -0000 1.8.2.1 @@ -228,6 +228,9 @@ set piece [lindex $date $index] if { ![string equal $piece {}] } { append value $space + if { [string length $piece] == 1 } { + append value "0" + } append value $piece append format $space append format $sql_form @@ -243,7 +246,9 @@ set ret [list] foreach fragment $clipped_date { if { [string equal $fragment {}] } { - lappend ret 0 + lappend ret "00" + } elseif {[string length $fragment] == 1} { + lappend ret "0$fragment" } else { lappend ret $fragment }