<& /Elements/Header, Title => loc("$ps->{qname}") &> % unless ($printable) { <& /Ticket/Elements/Tabs, Ticket => undef, current_tab => '', Title => loc("$ps->{qname}") &> ">[calendar] ">[ical] ">[print] % } else {

<% loc("$ps->{qname}") %>

% }

% unless ($ps->get_projects) { There are no projects. % } % for my $p ($ps->get_projects_by_priority) {

<% loc('#[_1]: [_2]', $p->id, $p->name) %> % unless ($printable) { [details] [more] % }

% for my $ms ($p->get_milestones_by_due_date) { % }

<& /Projects/Elements/StatusIndicator, status => $ms->status &> <% Blinck::RT::Utils::as_simple_date($ms->due_date) %>

(<% Blinck::RT::Utils::as_friendly_time_left($ms->due_date) %>)

<% $ms->name %> [more]

% if (not $q) { Managed by: <% $p->queue %>
% } Priority: <% $p->priority %>; Status: <% $p->status %>; People: <% $p->get_summary_people_as_string %>
Issues: <% $p->get_summary_issues_as_string %>

<%perl> }

Orphan Tasks

% unless ($ps->get_orphans) { There are no orphan tasks. % } % for my $o ($ps->get_orphans) { <% loc('#[_1]: [_2]', $o->Id, $o->Subject) %>
% }

% if ($printable) {

% } <%ARGS> $q => undef $printable => undef <%INIT> # $TicketObj->CurrentUserHasRight('ShowTicket') my $ps = Blinck::RT::Projects->new( q => $q ); $ps->find_projects; $ps->find_orphans;