Index: openacs-4/packages/calendar/www/mini-calendar.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/www/mini-calendar.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/calendar/www/mini-calendar.tcl	21 Jul 2003 19:21:36 -0000	1.1
+++ openacs-4/packages/calendar/www/mini-calendar.tcl	13 Aug 2003 16:08:33 -0000	1.2
@@ -4,7 +4,7 @@
 
 if {![exists_and_not_null date]} {
     set date [dt_sysdate]
-}
+} 
 
 # Create row with existing views
 multirow create views name text active_p
@@ -20,10 +20,14 @@
 set list_of_vars [list]
 
 # Get the current month, day, and the first day of the month
+if {[catch {
+    dt_get_info $date
+} errmsg]} {
+    set date "[lindex $date 0]-[lindex $date 1]-[lindex $date 2]"
+    dt_get_info $date
+}
 
-dt_get_info $date
 
-
 set now        [clock scan $date]
 set output ""