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.23 -r1.24 --- openacs-4/packages/acs-datetime/tcl/acs-calendar-2-procs.tcl 20 May 2002 16:41:32 -0000 1.23 +++ openacs-4/packages/acs-datetime/tcl/acs-calendar-2-procs.tcl 5 Jun 2002 18:57:18 -0000 1.24 @@ -222,11 +222,11 @@ } # the MAX num of events - set max_n_events 0 + set max_n_events 1 for {set hour $start_hour} {$hour <= $end_hour} {incr hour} { if {$max_n_events < $n_events($hour)} { set max_n_events $n_events($hour) - ns_log Notice "BMA-DEBUG-CAL: Setting max_n_events to $max_n_events" + #ns_log Notice "BMA-DEBUG-CAL: Setting max_n_events to $max_n_events" } } @@ -242,16 +242,16 @@ } # Loop through the hours of the day - append return_html "
+ append return_html "
\n" # The items that have no hour set hour "" set next_hour "" set start_time "" set display_hour "No Time" - append return_html "" - append return_html "" + append return_html "" + append return_html "" set n_processed_events 0 @@ -349,7 +349,7 @@ set colspan 1 } - append return_html "" + append return_html "" } else { append return_html "[ns_set value $calendar_details $index]
\n" } @@ -359,7 +359,7 @@ if {$n_processed_events == 0 || ($n_events($hour) < $max_n_events && $must_complete_p)} { for {set i 0} {$i < [expr "$max_n_events - $n_events($hour)"]} {incr i} { - append return_html "" + append return_html "" } }
 [subst $hour_template]" + append return_html "
 [subst $hour_template]" # Go through events while {1} { @@ -309,7 +309,7 @@ } set display_hour [subst $hour_template] - append return_html "
 $display_hour
 $display_hour[lindex $one_item_val 2][lindex $one_item_val 2]