%# Never call a man a fool; borrow from him. % return unless $QueueObj->OriginObj;
<& /Work/Tickets/Elements/ShowCustomFields, Ticket => $QueueObj->OriginObj, ReadOnly => 1, Loc => 1 &>
  <&|/Work/Elements/Row, Title => loc('Registered on')&> <% $QueueObj->CreatedObj->AsDate %> <&|/Work/Elements/Row, Title => loc('Latest Release')&> % my $Tickets = RT::Tickets->new( $session{'CurrentUser'} ); % $Tickets->LimitQueue( VALUE => $QueueObj->Id ); % $Tickets->LimitType( VALUE => 'release' ); % $Tickets->LimitStatus( VALUE => 'resolved' ); % $Tickets->OrderByCols( % { FIELD => 'Starts', ORDER => 'DESC' }, % { FIELD => 'Id', ORDER => 'DESC' } % ); % if (my $Ticket = $Tickets->First) { <% $Ticket->Subject %> % } else { (<&|/l&>none) % } <&|/Work/Elements/Row, Title => loc('Project Staff')&> % my $Members = $QueueObj->AdminCc->MembersObj; % while (my $watcher = $Members->Next) { <% $watcher->MemberObj->Object->Name %> (<&|/l&>Admin)
% } % $Members = $QueueObj->Cc->MembersObj; % while (my $watcher = $Members->Next) { <% $watcher->MemberObj->Object->Name %> (<&|/l&>Member)
% } % foreach my $function (qw( News Jobs )) { % my $Items = $QueueObj->FunctionItems($function); % $Items->RowsPerPage(5); % if ($Items->Count) { <&|/Work/Elements/Row, Title => loc("Latest $function") &> % } % }
    % while (my $Item = $Items->Next) {
  • <% $Item->Subject %> % if ($function eq 'News') { (<% $Item->CreatedObj->AsString =~ /(^\S+)/g %>) % }
  • % }
<%ATTR> Tab2 => 'Summary' <%ARGS> $QueueObj