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 -N -r1.6 -r1.7
--- openacs-4/packages/calendar/www/mini-calendar.tcl	25 Sep 2003 23:11:12 -0000	1.6
+++ openacs-4/packages/calendar/www/mini-calendar.tcl	10 Oct 2003 16:43:14 -0000	1.7
@@ -14,6 +14,13 @@
     set page_num ""
 }
 
+array set message_key_array {
+    list acs-datetime.List
+    day acs-datetime.Day
+    week acs-datetime.Week
+    month acs-datetime.Month
+}
+
 # Create row with existing views
 multirow create views name text active_p
 foreach viewname {list day week month} {
@@ -22,7 +29,7 @@
     } else {
         set active_p f
     }
-    multirow append views [_ acs-datetime.[string toupper $viewname 0]] $viewname $active_p
+    multirow append views [_ $message_key_array($viewname)] $viewname $active_p
 }
 
 set list_of_vars [list]