<%INIT> my $TicketsObj = RT::Tickets->new($session{CurrentUser}); $TicketsObj->LimitQueue(VALUE => $QueueObj->Id); $TicketsObj->LimitStatus(OPERATOR => '!=', VALUE => 'deleted'); my $req = $TicketsObj->Count; $TicketsObj = RT::Tickets->new($session{CurrentUser}); $TicketsObj->LimitQueue(VALUE => $QueueObj->Id); $TicketsObj->LimitStatus(VALUE => $_) for grep !/deleted/, RT::Queue->InactiveStatusArray; my $res = $TicketsObj->Count; require LWP::Simple; my $src = eval { $m->scomp('/Foundry/Project/Source/index.html', QueueObj => $QueueObj) }; my $checkin = loc('n/a'); $checkin = ($1 - 1) if $src =~ /of revision (\d+)/; <%ARGS> $QueueObj