Index: openacs-4/packages/acs-datetime/tcl/acs-calendar-2-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-datetime/tcl/acs-calendar-2-procs.tcl,v
diff -u -r1.13 -r1.14
--- openacs-4/packages/acs-datetime/tcl/acs-calendar-2-procs.tcl	1 Apr 2002 23:45:43 -0000	1.13
+++ openacs-4/packages/acs-datetime/tcl/acs-calendar-2-procs.tcl	11 Apr 2002 20:12:51 -0000	1.14
@@ -99,6 +99,8 @@
         -start_hour {0}
         -end_hour {23}
         -show_nav 1
+        -prev_nav_template {<a href="?date=$yesterday">&lt;</a>}
+        -next_nav_template {<a href="?date=$tomorrow">&gt;</a>}
 	-master_bgcolor "black" 
 	-header_bgcolor "black" 
 	-header_text_color "white" 
@@ -133,7 +135,9 @@
     set return_html ""
 
     if {$show_nav} {
-        append return_html "<table border=0 cellpadding=0 width=$calendar_width><tr bgcolor=#dddddd><th><a href=?date=$yesterday>&lt;</a> &nbsp; &nbsp; $day_of_the_week &nbsp; &nbsp; <a href=?date=$tomorrow>&gt;</a></th></tr></table><p>\n"
+        set prev_nav [subst $prev_nav_template]
+        set next_nav [subst $next_nav_template]
+        append return_html "<table border=0 cellpadding=0 width=$calendar_width><tr bgcolor=#dddddd><th> $prev_nav &nbsp; &nbsp; $day_of_the_week $next_nav &nbsp; &nbsp; </th></tr></table><p>\n"
     }
 
     # Loop through the hours of the day