Index: openacs-4/packages/calendar/www/view.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/www/view.tcl,v
diff -u -r1.32.2.1 -r1.32.2.2
--- openacs-4/packages/calendar/www/view.tcl	17 Apr 2019 19:42:59 -0000	1.32.2.1
+++ openacs-4/packages/calendar/www/view.tcl	14 Jul 2022 14:46:33 -0000	1.32.2.2
@@ -8,22 +8,11 @@
     @cvs-id $Id$
 } {
     {view:word {[parameter::get -parameter DefaultView -default day]}}
-    {date ""}
+    {date:clock(%Y-%m-%d) ""}
     {sort_by ""}
     {start_date ""}
     {period_days:integer,notnull {[parameter::get -parameter ListView_DefaultPeriodDays -default 31]}}
 } -validate {
-    
-    valid_date -requires { date } {
-        if {$date ne "" } {
-            if {[catch {set date [clock format [clock scan $date -format "%Y-%m-%d"] -format "%Y-%m-%d"]} err]
-                && [catch {set date [clock format [clock scan $date  -format "%Y%m%d"] -format "%Y-%m-%d"]} err]
-            } {
-                ad_complain "Your input is not valid. It has to be in the form YYYY-MM-DD."
-            }
-        }
-    }
-    
     valid_period_days  -requires { period_days } {
         # Tcl allows in for relative times just 6 digits, including the "+"
         if {$period_days > 99999} {