<%ARGS> $id => undef <%INIT> my $ProjectObj = LoadTicket($id); use RT::Projects::Scheduler; my $schedule = new RT::Projects::Scheduler; my ($calendar, $ticketinfo) =$schedule->Build($id); 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 person

% foreach my $person ( sort keys %{$schedule->{'calendarbyactor'}}) { % my $User = new RT::User($session{'CurrentUser'}); % $User->Load($person);

<%$User->Name%>

% }