TicketsPerQueue

It has come up before that you may wish to have the newest X unowned tickets per queue visible so that techs can have a listing of unowned tickets in the queues they have rights to see. I threw this together for 3.2.2 and it seems to do the trick.

Feel free to modify this if there is glaring error I missed or if fixes are needed for 3.4.x.

EDITED by gentgeen @ linuxmail .org: I am using RT 3.4.1 from a Debian install package, and I had to save the following as /usr/local/share/request-tracker3.4/html/Elements/MyRequests I think other (non-packaged) RT users of version 3.4.1 will want to save it as rt_dir/local/html/Elements/MyRequests

rt_dir/local/html/Elements/PerQueue

<%PERL>

while (my $queue = $Queues->Next) {
        my $Query = "Owner = 'Nobody' AND ( Status = 'new' OR Status = 'open') AND Queue = '".$queue->Name."'";
        my $QueryString = '?' . $m->comp('/Elements/QueryString', Query => $Query, Order => 'DESC', OrderBy => 'Priority') if $Query;
</%PERL>

<&|/Elements/TitleBox,
        title => loc("[_1] newest tickets in ".$queue->Name, $rows),
        title_href => "Search/Results.html".$QueryString &>
<& /Elements/TicketList,
        Format => "'<a href=\"$RT::WebPath/Ticket/Display.html?id=__id__\">__id__</a>/TITLE:#', Subject, Status, Requestors, CreatedRelative",
        Query => $Query,
        OrderBy => 'Queue',
        Order => 'DESC',
        ShowNavigation => 0,
        Rows => $rows

        &>
<BR>
</&>
% }

<%INIT>
my $rows = $RT::MyRequestsLength;
my $Queues = RT::Queues->new($session{'CurrentUser'});
$Queues->UnLimit();
</%INIT>