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.2 -r1.1.2.3
--- openacs-4/packages/calendar/www/navbar.tcl	22 Feb 2007 22:19:02 -0000	1.1.2.2
+++ openacs-4/packages/calendar/www/navbar.tcl	27 Feb 2007 15:53:17 -0000	1.1.2.3
@@ -28,6 +28,12 @@
     }
 }
 
+if { [string match /dotlrn* $base_url] } {
+    set link "[export_vars -url -base $base_url -entire_form -exclude {export}]&export=print"
+} else {
+    set link "[export_vars -base $base_url {date {view day}}]&export=print"
+}
+
 multirow create views name text url icon spacer selected_p onclick
 
 multirow append views \
@@ -69,7 +75,7 @@
 multirow append views \
     " Print" \
     "print" \
-    "[export_vars -url -base $base_url -entire_form -exclude {export}]&export=print" \
+    $link \
     "/resources/calendar/images/print-icon.gif" \
     "" \
     f \