<%ARGS> $id => undef <%INIT> use RT::Projects::Scheduler; my $ProjectObj = LoadTicket($id); my $schedule = RT::Projects::Scheduler->new(); my ($retval, $msg) = $schedule->Build($id); unless ($retval) { Abort($msg); } my $calendar = $schedule->Calendar(); my $ticketinfo = $schedule->TicketInfo(); my @dates = sort (keys %{$calendar}); my $last = $dates[0]; my @tasks = sort { $ticketinfo->{$a}->{'startson'} <=> $ticketinfo->{$b}->{'startson'} } keys %{$ticketinfo}; <& /Elements/Header, Title => $ProjectObj->Subject . " / Schedule" &> <& Elements/Tabs, Ticket => $ProjectObj, current_tab => 'Projects/Schedule.html?id='.$ProjectObj->Id &>

Schedule by date

% foreach my $date ( keys %{$calendar}) {

<%$schedule->{'dates'}->{$date}->{'daymon'}%>

% } <%INIT> my $peoplecolors = {}; my @colors = qw(ffffcc ffccff ccffff aacccc ccaacc ccccaa aaaa99 aa99aa 99aaaa 999966 996699 669999 666633 663366 336666); foreach my $task (keys %{$ticketinfo}) { #TODO: We should be getting this from Projects::Scheduler. why aren't we? $ticketinfo->{$task}->{'ticketobj'} = LoadTicket($task); my $ticket = $ticketinfo->{$task}->{'ticketobj'}; $peoplecolors->{$ticket->OwnerObj->Id} = (shift @colors); }