% #then we're a new entry, find a slot for us
% my $s = 0;
% while ( ref($slots[$sday]->[$s]) ) { $s++ }
% $slots[$sday]->[$s] = [ $t->Id, $t ];
% }
%
% #then we're a new entry, find a slot for us
% my $s = 0;
% while ( ref($slots[$sday]->[$s]) ) { $s++ }
% $slots[$sday]->[$s] = [ $t->Id, $t ];
% }
%