Index: openacs-4/packages/calendar/www/view-one-day-display.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/www/view-one-day-display.tcl,v
diff -u -r1.36.2.2 -r1.36.2.3
--- openacs-4/packages/calendar/www/view-one-day-display.tcl	29 May 2008 14:08:31 -0000	1.36.2.2
+++ openacs-4/packages/calendar/www/view-one-day-display.tcl	22 Sep 2008 09:06:20 -0000	1.36.2.3
@@ -168,8 +168,8 @@
     set start_time [lc_time_fmt $ansi_start_date "%X"]
     set end_time [lc_time_fmt $ansi_end_date "%X"]
 
-    set start_hour [format %.0f [lc_time_fmt $ansi_start_date "%H"]]
-    set end_hour [format %.0f [lc_time_fmt $ansi_end_date "%H"]]
+    scan [lc_time_fmt $ansi_start_date "%H"] %d start_hour 
+    scan [lc_time_fmt $ansi_end_date "%H"] %d end_hour 
 
     if { $start_hour < $adjusted_start_display_hour && \
              [string equal \
Index: openacs-4/packages/calendar/www/view-print-display.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/www/view-print-display.adp,v
diff -u -r1.2 -r1.2.2.1
--- openacs-4/packages/calendar/www/view-print-display.adp	15 May 2007 20:14:21 -0000	1.2
+++ openacs-4/packages/calendar/www/view-print-display.adp	22 Sep 2008 09:06:20 -0000	1.2.2.1
@@ -15,7 +15,7 @@
   <div style="border: 1px solid #ccc;">
   <div style="background-color: #ddd; padding: 5px;">
   <span style="color: maroon; font-weight: bold;">@items.event_name@</span><br>
-  <span style="font-weight: bold;">#calendar.Date#</span> @items.weekday@, @items.start_date@ &nbsp;&nbsp;&nbsp; <if @items.start_time@ ne @items.end_time@>@items.start_time@ &ndash; @items.end_time@</if>
+  <span style="font-weight: bold;">#calendar.Date#</span> @items.start_date@ &nbsp;&nbsp;&nbsp; <if @items.start_time@ ne @items.end_time@>@items.start_time@ &ndash; @items.end_time@</if>
   <div style="font-size:85%; color: #666; border-bottom: 1px solid #666; border-top: 1px solid #666; margin-top: 3px; margin-bottom: 3px; padding-bottom: 2px; padding-top: 2px;">
   @items.calendar_name@
   </div>
@@ -28,4 +28,4 @@
   </multiple>
 </if>
 </body>
-</html>
\ No newline at end of file
+</html>
Index: openacs-4/packages/calendar/www/view-week-display.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/www/view-week-display.tcl,v
diff -u -r1.20.2.2 -r1.20.2.3
--- openacs-4/packages/calendar/www/view-week-display.tcl	29 May 2008 14:08:31 -0000	1.20.2.2
+++ openacs-4/packages/calendar/www/view-week-display.tcl	22 Sep 2008 09:06:20 -0000	1.20.2.3
@@ -133,8 +133,8 @@
     set start_time [lc_time_fmt $ansi_start_date "%X"]
     set end_time [lc_time_fmt $ansi_end_date "%X"]
 
-    set start_hour [format %.0f [lc_time_fmt $ansi_start_date "%H"]]
-    set end_hour [format %.0f [lc_time_fmt $ansi_end_date "%H"]]
+    scan [lc_time_fmt $ansi_start_date "%H"] %d start_hour
+    scan [lc_time_fmt $ansi_end_date "%H"] %d end_hour
 
     set ansi_this_date [dt_julian_to_ansi [expr $first_weekday_julian + $current_weekday]]