Index: openacs-4/packages/acs-datetime/tcl/acs-calendar-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-datetime/tcl/acs-calendar-procs.tcl,v
diff -u -N -r1.20 -r1.21
--- openacs-4/packages/acs-datetime/tcl/acs-calendar-procs.tcl	1 Oct 2003 15:05:29 -0000	1.20
+++ openacs-4/packages/acs-datetime/tcl/acs-calendar-procs.tcl	11 May 2005 13:02:38 -0000	1.21
@@ -446,8 +446,8 @@
     <tr align=center class=\"table-header\">"
     
     # ben: taking out year for now, since it doesn't work
-    foreach viewname {list day week month} {
-        set text [string toupper $viewname 0]
+    foreach {viewname viewlink viewdesc} [list "list" [_ acs-datetime.list] [_ acs-datetime.view_calendar_day] "day" [_acs-datetime.day] [_ acs-datetime.view_calendar_list] "week" [_acs-datetime.week] [_ acs-datetime.view_calendar_week] "month" [acs_datetime.month] [_ acs-datetime.view_calendar_month]] {
+        set text [string toupper $viewlink 0]
         if { $viewname == $view } {
             # current view
             append result "<td class=\"selected\">
@@ -456,7 +456,7 @@
     "
         } else {
             append result "<td class=\"no-border\">
-    <a href=\"$base_url" "view=$viewname&date=$date\">
+    <a href=\"$base_url" "view=$viewname&date=$date\" title=\"$viewdesc\">
     <font size=-1><b>$text</b></font></a>
     </td>
     "