Index: openacs-4/packages/calendar-portlet/www/calendar-full-portlet.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/calendar-portlet/www/calendar-full-portlet.tcl,v diff -u -r1.41 -r1.42 --- openacs-4/packages/calendar-portlet/www/calendar-full-portlet.tcl 27 Oct 2014 16:41:10 -0000 1.41 +++ openacs-4/packages/calendar-portlet/www/calendar-full-portlet.tcl 7 Aug 2017 23:48:05 -0000 1.42 @@ -24,15 +24,15 @@ {view ""} {page_num:naturalnum ""} {date ""} - {period_days:optional} + {period_days:naturalnum,optional} {julian_date ""} } -properties { } -validate { valid_date -requires { date } { if {$date ne "" } { if {[catch {set date [clock format [clock scan $date] -format "%Y-%m-%d"]} err]} { - ad_complain "Your input ($date) was not valid. It has to be in the form YYYYMMDD." + ad_complain "Your input ($date) was not valid. It has to be in the form YYYY-MM-DD." } } } @@ -140,3 +140,9 @@ } else { ad_return_template } + +# Local variables: +# mode: tcl +# tcl-indent-level: 4 +# indent-tabs-mode: nil +# End: