$dateslots[$len-1] = 8/11/2002;
$i = 8/5/2002;
 
for (;$i<=$dateslots[$len-1];($y,$m,$d)=$object->split_date($i), $i=$object->get_next_date($y,$m,$d,1))
{
   $ret->[0] = $object->clean( $ret->[0] );
   $ret->[1] = $object->hours_time( $ret->[1], 1 );
   $ret->[2] = $object->hours_time( $ret->[2], 2 );
   if ($ret->[0] > $i){
         $i = $object->dateslot($i);
        my ($mdt,$dn,$s,$e) =($i,$i,'','');
   if ($mdate) # finish existing date
   {
         colSpans( $roomSched, $end, $last );
         push @roomSched, ($roomSched);
   }
  $roomSched = $object->blankRow($first,$last,$i,$i,'');
 ($start,$end ) = ( $last, $first );
  $e = $first if ( !$e );
 ($mdate,$start,$end ) = ($mdt,$s,$e);