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.3 -r1.1.2.4
--- openacs-4/packages/calendar/www/navbar.tcl	27 Feb 2007 15:53:17 -0000	1.1.2.3
+++ openacs-4/packages/calendar/www/navbar.tcl	3 Mar 2007 18:51:22 -0000	1.1.2.4
@@ -64,6 +64,15 @@
     ""
 
 multirow append views \
+    " Calendar" \
+    "calendar" \
+    "[export_vars -base $base_url {date {view month}}]${page_num}\#calendar" \
+    "/resources/calendar/images/calendar-icon.gif" \
+    "    |    " \
+    f \
+    ""
+
+multirow append views \
     " List" \
     "list" \
     "[export_vars -base $base_url {date {view list}}]${page_num}${url_stub_period_days}\#calendar" \
@@ -75,7 +84,7 @@
 multirow append views \
     " Print" \
     "print" \
-    $link \
+    "[export_vars -url -base $base_url -entire_form -exclude {export}]&export=print" \
     "/resources/calendar/images/print-icon.gif" \
     "" \
     f \