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.12.14.2 -r1.12.14.3
--- openacs-4/packages/acs-datetime/tcl/acs-datetime-procs.tcl 2 Oct 2013 08:56:26 -0000 1.12.14.2
+++ openacs-4/packages/acs-datetime/tcl/acs-datetime-procs.tcl 11 Oct 2013 11:08:55 -0000 1.12.14.3
@@ -449,16 +449,18 @@
ad_proc -public dt_widget_month_names {
name
- {default ""}
+ {selected_month 0}
} {
Returns a select widget for months of the year.
} {
+ if {$selected_month eq ""} {set selected_month 0}
+ if {![string is integer $selected_month]} {error "selected_month must be integer"}
set month_names [dt_month_names]
- set default [expr {$default-1}]
set input "