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.21 -r1.21.2.1
--- openacs-4/packages/acs-datetime/tcl/acs-calendar-procs.tcl	11 May 2005 13:02:38 -0000	1.21
+++ openacs-4/packages/acs-datetime/tcl/acs-calendar-procs.tcl	18 Oct 2005 18:49:03 -0000	1.21.2.1
@@ -446,7 +446,7 @@
     <tr align=center class=\"table-header\">"
     
     # ben: taking out year for now, since it doesn't work
-    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]] {
+    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