Index: openacs-4/packages/calendar-portlet/www/calendar-list-portlet.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/calendar-portlet/www/calendar-list-portlet.tcl,v diff -u -r1.2.2.3 -r1.2.2.4 --- openacs-4/packages/calendar-portlet/www/calendar-list-portlet.tcl 6 Mar 2003 21:40:57 -0000 1.2.2.3 +++ openacs-4/packages/calendar-portlet/www/calendar-list-portlet.tcl 13 Mar 2003 14:14:02 -0000 1.2.2.4 @@ -26,16 +26,19 @@ {date ""} {julian_date ""} {sort_by ""} -} -validate { +} -properties { + +} -validate { valid_date -requires { date } { if {![string equal $date ""]} { - if {[catch {set date [clock format [clock scan $date] -format "%Y%m%d"]} err]} { + if {[catch {set date [clock format [clock scan $date] -format "%Y-%m-%d"]} err]} { ad_complain "Your input was not valid. It has to be in the form YYYYMMDD." } } } } + # get stuff out of the config array array set config $cf if {[empty_string_p $view]} {