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.12 -r1.13
--- openacs-4/packages/calendar/www/mini-calendar.tcl	13 May 2004 16:13:40 -0000	1.12
+++ openacs-4/packages/calendar/www/mini-calendar.tcl	11 May 2005 13:03:36 -0000	1.13
@@ -32,8 +32,15 @@
     month #acs-datetime.Month#
 }
 
+array set message_key_title_array {
+    list #acs-datetime.view_calendar_list#
+    day #acs-datetime.view_calendar_day#
+    week #acs-datetime.view_calendar_week#
+    month #acs-datetime.view_calendar_month#
+}
+
 # Create row with existing views
-multirow create views name text active_p url
+multirow create views name text active_p url title
 foreach viewname {list day week month} {
     if { [string equal $viewname $view] } {
         set active_p t
@@ -42,10 +49,12 @@
     }
     if {[string equal $viewname list]} {
 	multirow append views [lang::util::localize $message_key_array($viewname)] $viewname $active_p \
-	    "[export_vars -base $base_url {date {view $viewname}}]${page_num}${url_stub_period_days}"
+	    "[export_vars -base $base_url {date {view $viewname}}]${page_num}${url_stub_period_days}" \
+	    [lang::util::localize $message_key_title_array($viewname)]
     } else {
 	multirow append views [lang::util::localize $message_key_array($viewname)] $viewname $active_p \
-	    "[export_vars -base $base_url {date {view $viewname}}]${page_num}"
+	    "[export_vars -base $base_url {date {view $viewname}}]${page_num}" \
+	    [lang::util::localize $message_key_title_array($viewname)]
     }
 }