Index: openacs-4/contrib/packages/room-reservation/www/room-reservations.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/room-reservation/www/room-reservations.tcl,v
diff -u -r1.2.2.1 -r1.2.2.2
--- openacs-4/contrib/packages/room-reservation/www/room-reservations.tcl	12 Jul 2004 22:08:43 -0000	1.2.2.1
+++ openacs-4/contrib/packages/room-reservation/www/room-reservations.tcl	10 Jun 2005 22:44:24 -0000	1.2.2.2
@@ -54,6 +54,14 @@
                     ]
     }
     {day} {
+	if { [regexp {(\d\d\d\d)(\d\d)(\d\d)} $date match year month day] } {
+	    set date "$year-$month-$day"
+	} elseif { ![regexp {\d\d\d\d-\d\d-\d\d} $date] } {
+	    ad_return_complaint 1 \
+		"<li>The date must be of the form YYYY-MM-DD."
+	    ad_script_abort
+	}
+
 	set content [room-reservation::calendar::one_day_display -room_id $room_id \
                          -date $date \
                          -prev_nav_template "<a href=\"?view=day&date=\[ns_urlencode \$yesterday]&room_id=$room_id\">&lt;</a>" \