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.21.2.2 -r1.21.2.3
--- openacs-4/packages/calendar-portlet/www/calendar-full-portlet.tcl	6 Mar 2003 15:17:19 -0000	1.21.2.2
+++ openacs-4/packages/calendar-portlet/www/calendar-full-portlet.tcl	6 Mar 2003 21:40:57 -0000	1.21.2.3
@@ -25,8 +25,14 @@
     {page_num ""}
     {date ""}
     {julian_date ""}
-} -properties {
-    
+} -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."
+            }
+        }
+    }
 }
 
 # get stuff out of the config array
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.2 -r1.2.2.3
--- openacs-4/packages/calendar-portlet/www/calendar-list-portlet.tcl	6 Mar 2003 15:17:19 -0000	1.2.2.2
+++ openacs-4/packages/calendar-portlet/www/calendar-list-portlet.tcl	6 Mar 2003 21:40:57 -0000	1.2.2.3
@@ -26,8 +26,14 @@
     {date ""}
     {julian_date ""}
     {sort_by ""}
-} -properties {
-    
+} -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."
+            }
+        }
+    }
 }
 
 # get stuff out of the config array