Index: openacs.org-dev/packages/acs-datetime/tcl/acs-calendar-2-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs.org-dev/packages/acs-datetime/tcl/acs-calendar-2-procs.tcl,v
diff -u -N -r1.1.1.1 -r1.1.1.2
--- openacs.org-dev/packages/acs-datetime/tcl/acs-calendar-2-procs.tcl	9 Jul 2002 17:34:57 -0000	1.1.1.1
+++ openacs.org-dev/packages/acs-datetime/tcl/acs-calendar-2-procs.tcl	25 Jul 2002 18:46:46 -0000	1.1.1.2
@@ -226,7 +226,7 @@
     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"
         }
     }
     
@@ -358,9 +358,15 @@
         }
 
         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 "<td colspan=\"1\" bgcolor=\"#dddddd\">&nbsp;</td>"
-            }
+            if {$n_events($hour) == 0 || $n_events($hour) == $n_processed_events} {
+		append return_html "<td colspan=\"[expr $max_n_events - $n_events($hour)]\" bgcolor=\"#dddddd\">&nbsp;</td>"
+	    } else {
+		for {set i 0} {$i < [expr "$max_n_events - $n_events($hour)"]} {incr i} {
+		    append return_html "<td colspan=\"1\" bgcolor=\"#dddddd\">&nbsp;</td>"
+		}
+	    }
+	    
+
         }
 
         append return_html "</tr>\n"