Index: openacs-4/packages/calendar/www/navbar.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/www/navbar.tcl,v
diff -u -r1.1.2.4 -r1.1.2.5
--- openacs-4/packages/calendar/www/navbar.tcl	3 Mar 2007 18:51:22 -0000	1.1.2.4
+++ openacs-4/packages/calendar/www/navbar.tcl	5 Mar 2007 17:10:52 -0000	1.1.2.5
@@ -20,7 +20,7 @@
     set url_stub_period_days "&period_days=${period_days}"
 }
 
-foreach test_view [list day week month] {
+foreach test_view {list day week month calendar} {
     if { [string equal $test_view $view] } {
         set ${test_view}_selected_p t
     } else {
@@ -69,7 +69,7 @@
     "[export_vars -base $base_url {date {view month}}]${page_num}\#calendar" \
     "/resources/calendar/images/calendar-icon.gif" \
     "    |    " \
-    f \
+    $calendar_selected_p \
     ""
 
 multirow append views \
@@ -78,7 +78,7 @@
     "[export_vars -base $base_url {date {view list}}]${page_num}${url_stub_period_days}\#calendar" \
     "/resources/calendar/images/list-icon.gif" \
     "    |    " \
-    f \
+    $list_selected_p \
     ""
 
 multirow append views \