diff options
Diffstat (limited to 'rt/share/html/Elements/CalendarSlotSchedule')
| -rw-r--r-- | rt/share/html/Elements/CalendarSlotSchedule | 50 |
1 files changed, 29 insertions, 21 deletions
diff --git a/rt/share/html/Elements/CalendarSlotSchedule b/rt/share/html/Elements/CalendarSlotSchedule index 3af90ff3e..fb5b7c1ab 100644 --- a/rt/share/html/Elements/CalendarSlotSchedule +++ b/rt/share/html/Elements/CalendarSlotSchedule @@ -8,39 +8,47 @@ @username => () </%ARGS> % foreach my $username ( @username ) { - - <td class="weekly -%# <% $is_today ? 'today' -%# : $is_yesterday ? 'yesterday' -%# : $is_aweekago ? 'aweekago' -%# : '' -%# %> - " - > -% for my $t (@Tickets) { -% next unless $t->OwnerObj->Name eq $username; % -% next unless RTx::Calendar::LocalDate($t->StartsObj->Unix) -% eq $Date->strftime('%F'); #today +% my %schedule = UserDaySchedule( username => $username, +% 'date' => $Date->strftime('%F'), +% Tickets => \@Tickets, +% ); +% +% my $bgcolor = 'ffffff'; +% my $content = ''; +% +% #XXX block out unavailable times % -% my($sm, $sh) = ($t->StartsObj->Localtime('user'))[1,2]; -% my $starts = $sh*60 + $sm; +% #block out / show / color code existing appointments +% foreach my $id ( keys %{ $schedule{'scheduled'} } ) { % -% my($dm, $dh) = ($t->DueObj->Localtime('user'))[1,2]; -% my $due = $dh*60 + $dm; +% my( $starts, $due, $col, $t ) = @{ $schedule{'scheduled'}->{$id} }; % % next if $starts >= ($tod_row+$timestep) || $due < $tod_row; % -% warn $starts. ' = '. ($tod_row+$timestep); % if ( $starts >= $tod_row ) { - <% $t->Id %> +% $bgcolor = $col; +% $content .= ($content?', ':''). $id; #XXX more % } else { - cont<% $t->Id %>... +% $bgcolor = $col; % } % } - </td> + + <td style="background:#<%$bgcolor%>" class="weekly +%# <% $is_today ? 'today' +%# : $is_yesterday ? 'yesterday' +%# : $is_aweekago ? 'aweekago' +%# : '' +%# %> + " + ><% $content %></td> % } <%ONCE> my $default_slots = RT->Config->Get('CalendarWeeklySlots') || 5; my $default_timestep = RT->Config->Get('CalendarWeeklySizeMin') || 30; #1/2h </%ONCE> +<%INIT> + +use RTx::Schedule qw( UserDaySchedule ); + +</%INIT> |