rt/share/html/Elements/CalendarSlotSchedule

   1 <%ARGS>
   2   $Date     => undef
   3   @Tickets  => ()
   4   $slots    => $default_slots
   5   $sday     => undef
   6   $tod_row  => undef
   7   $timestep => $default_timestep
   8   @username => ()
   9 </%ARGS>
  10 % foreach my $username ( @username ) {
  11
  12     <td class="weekly
  13 %#               <%   $is_today     ? 'today'
  14 %#                  : $is_yesterday ? 'yesterday'
  15 %#                  : $is_aweekago  ? 'aweekago'
  16 %#                  : ''
  17 %#               %>
  18                    "
  19     >
  20 %       for my $t (@Tickets) {
  21 %         next unless $t->OwnerObj->Name eq $username;
  22 %
  23 %         next unless RTx::Calendar::LocalDate($t->StartsObj->Unix)
  24 %                     eq $Date->strftime('%F'); #today
  25 %
  26 %         my($sm, $sh) = ($t->StartsObj->Localtime('user'))[1,2];
  27 %         my $starts = $sh*60 + $sm;
  28 %
  29 %         my($dm, $dh) = ($t->DueObj->Localtime('user'))[1,2];
  30 %         my $due = $dh*60 + $dm;
  31 %
  32 %         next if $starts >= ($tod_row+$timestep) || $due < $tod_row;
  33 %
  34 %         warn $starts. ' = '. ($tod_row+$timestep);
  35 %         if ( $starts >= $tod_row ) {
  36             <% $t->Id %>
  37 %         } else {
  38             cont<% $t->Id %>...
  39 %         }
  40 %       }
  41     </td>
  42 % }
  43 <%ONCE>
  44 my $default_slots = RT->Config->Get('CalendarWeeklySlots') || 5;
  45 my $default_timestep = RT->Config->Get('CalendarWeeklySizeMin') || 30; #1/2h
  46 </%ONCE>