4 $slots => $default_slots
7 $timestep => $default_timestep
10 % foreach my $username ( @username ) {
13 %# <% $is_today ? 'today'
14 %# : $is_yesterday ? 'yesterday'
15 %# : $is_aweekago ? 'aweekago'
20 % for my $t (@Tickets) {
21 % next unless $t->OwnerObj->Name eq $username;
23 % next unless RTx::Calendar::LocalDate($t->StartsObj->Unix)
24 % eq $Date->strftime('%F'); #today
26 % my($sm, $sh) = ($t->StartsObj->Localtime('user'))[1,2];
27 % my $starts = $sh*60 + $sm;
29 % my($dm, $dh) = ($t->DueObj->Localtime('user'))[1,2];
30 % my $due = $dh*60 + $dm;
32 % next if $starts >= ($tod_row+$timestep) || $due < $tod_row;
34 % warn $starts. ' = '. ($tod_row+$timestep);
35 % if ( $starts >= $tod_row ) {
44 my $default_slots = RT->Config->Get('CalendarWeeklySlots') || 5;
45 my $default_timestep = RT->Config->Get('CalendarWeeklySizeMin') || 30; #1/2h