Index: openacs-4/packages/acs-datetime/tcl/acs-datetime-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-datetime/tcl/acs-datetime-procs.tcl,v diff -u -r1.13.2.1 -r1.13.2.2 --- openacs-4/packages/acs-datetime/tcl/acs-datetime-procs.tcl 10 Sep 2015 08:21:22 -0000 1.13.2.1 +++ openacs-4/packages/acs-datetime/tcl/acs-datetime-procs.tcl 4 Feb 2017 13:18:22 -0000 1.13.2.2 @@ -159,19 +159,11 @@ } set day [expr {floor($calc - $calc3 - floor($calc4 * 30.6001))}] - set year [expr {int($year)}] + set year [expr {int($year)}] set month [expr {int($month)}] - set day [expr {int($day)}] + set day [expr {int($day)}] - if {$month < 10} { - set month 0$month - } - - if {$day < 10} { - set day 0$day - } - - return $year-$month-$day + return [format %.4d $year]-[format %.2d $month]-[format %.2d $day] } ad_proc -public dt_ansi_to_pretty {