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 -r1.6 -r1.7
--- openacs-4/packages/acs-datetime/tcl/acs-calendar-procs.tcl	15 May 2002 20:32:11 -0000	1.6
+++ openacs-4/packages/acs-datetime/tcl/acs-calendar-procs.tcl	15 May 2002 22:34:52 -0000	1.7
@@ -420,7 +420,8 @@
     append result "
     <tr align=center>"
     
-    foreach viewname {list day week month year} {
+    # ben: taking out year for now, since it doesn't work
+    foreach viewname {list day week month} {
         set text [string toupper $viewname 0]
         if { $viewname == $view } {
             # current view
@@ -528,6 +529,7 @@
     in that url's environment: the view and the date.
 
     Valid views are list, day, week, month, and year.  
+    (ben) for now I am disabling year, which doesn't work.
 
     The date must be formatted YYYY-MM-DD.
 } {