Index: openacs-4/packages/calendar/www/view.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/www/view.tcl,v
diff -u -r1.7 -r1.7.2.1
--- openacs-4/packages/calendar/www/view.tcl	21 Sep 2002 15:52:43 -0000	1.7
+++ openacs-4/packages/calendar/www/view.tcl	6 Mar 2003 21:34:21 -0000	1.7.2.1
@@ -12,6 +12,14 @@
     {julian_date ""}
     {calendar_list:multiple ""}
     {sort_by ""}
+} -validate {
+    valid_date -requires { date } {
+        if {![string equal $date ""]} {
+            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."
+            }
+        }
+    }
 }
 
 set package_id [ad_conn package_id]