Index: openacs-4/packages/ecommerce/tcl/ecommerce-widgets-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/tcl/ecommerce-widgets-procs.tcl,v
diff -u -r1.17 -r1.18
--- openacs-4/packages/ecommerce/tcl/ecommerce-widgets-procs.tcl	13 Jan 2005 13:57:56 -0000	1.17
+++ openacs-4/packages/ecommerce/tcl/ecommerce-widgets-procs.tcl	7 Jan 2008 17:32:06 -0000	1.18
@@ -649,8 +649,9 @@
     set default_matched_p 0
     set this_year [clock format [clock seconds] -format %Y]
     set this_year_for_db [clock format [clock seconds] -format %y]
+    set this year_for_db [string trimleft $this_year_for_db 0]
     foreach option [list \
-			[list $this_year_for_db $this_year] \
+			[list [format "%02d" $this_year_for_db] $this_year] \
 			[list [format "%02d" [expr $this_year_for_db + 1]] [expr $this_year + 1]] \
 			[list [format "%02d" [expr $this_year_for_db + 2]] [expr $this_year + 2]] \
 			[list [format "%02d" [expr $this_year_for_db + 3]] [expr $this_year + 3]] \