Index: openacs-4/packages/calendar/www/view-list-display.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/www/view-list-display.tcl,v diff -u -N -r1.35.2.3 -r1.35.2.4 --- openacs-4/packages/calendar/www/view-list-display.tcl 1 Jun 2016 20:53:48 -0000 1.35.2.3 +++ openacs-4/packages/calendar/www/view-list-display.tcl 1 Jun 2016 21:14:51 -0000 1.35.2.4 @@ -5,12 +5,12 @@ @cvs-id $Id$ } { {period_days:integer,notnull {[parameter::get -parameter ListView_DefaultPeriodDays -default 31]}} - } -} -validate { - valid_period_days -requires { period_days } { - # tcl allows in for relative times just 6 digits, including the "+" - if {$period_days > 99999} { - ad_complain "Invalid time period." + } -validate { + valid_period_days -requires { period_days } { + # tcl allows in for relative times just 6 digits, including the "+" + if {$period_days > 99999} { + ad_complain "Invalid time period." + } } } }