Index: openacs-4/packages/acs-datetime/www/doc/examples/calendar-navigation.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-datetime/www/doc/examples/calendar-navigation.tcl,v diff -u -N -r1.4.2.1 -r1.4.2.2 --- openacs-4/packages/acs-datetime/www/doc/examples/calendar-navigation.tcl 10 Sep 2015 08:21:22 -0000 1.4.2.1 +++ openacs-4/packages/acs-datetime/www/doc/examples/calendar-navigation.tcl 17 May 2016 19:23:16 -0000 1.4.2.2 @@ -13,6 +13,15 @@ } -properties { title:onevalue calendar_widget:onevalue +} -validate { + date_valid -requires date { + # + # Check for the date formats accepted by lc_time_fmt + # + if {[catch {lc_time_fmt $date %B} errorMsg]} { + ad_complain "Invalid date" + } + } } set title "Calendar Navigation" @@ -23,7 +32,6 @@ ad_return_template - # Local variables: # mode: tcl # tcl-indent-level: 4