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 -N -r1.39 -r1.39.2.1 --- openacs-4/packages/calendar/www/view-one-day-display.tcl 9 Nov 2008 23:29:22 -0000 1.39 +++ openacs-4/packages/calendar/www/view-one-day-display.tcl 16 Sep 2009 11:03:52 -0000 1.39.2.1 @@ -189,17 +189,15 @@ } #Now correct the top attribute for the adjusted start. -if { $adjusted_start_display_hour != 0 } { - set num_items [multirow size items] - for {set i 1} {$i <= $num_items } {incr i} { - if { [multirow get items $i all_day_p] } { - multirow set items $i height \ - [expr ($adjusted_end_display_hour-$adjusted_start_display_hour+1)*($hour_height_inside+$hour_height_sep)] - } else { - set currval [multirow get items $i top] - multirow set items $i top \ - [expr $currval - ($adjusted_start_display_hour*($hour_height_inside+$hour_height_sep))] - } +set num_items [multirow size items] +for {set i 1} {$i <= $num_items } {incr i} { + if { [multirow get items $i all_day_p] } { + multirow set items $i height \ + [expr ($adjusted_end_display_hour-$adjusted_start_display_hour+1)*($hour_height_inside+$hour_height_sep)] + } else { + set currval [multirow get items $i top] + multirow set items $i top \ + [expr $currval - ($adjusted_start_display_hour*($hour_height_inside+$hour_height_sep))] } }