JumpToQueue script

I have just asked questions on this mailinglist, I thougt that I should
contribute something also.
Before upgrading we used a small script to fast jump between queues,
that script stopped working when upgrading to RT3.2.1. I have done a
rewrite of that script. Just cut and put in a file, I named it
JumpToQueue, move it to Elements. You can call it from
Seach/Results.html by adding <& Elements/JumpToQueue &> where you want
it, I put it right after the license block.
cut here ----------------------

  <%PERL> while ( my $queue = $Queues->Next) { my $tempvar = "Queue = '".$queue->Name."' AND (Status = 'open' OR Status = 'new')"; <%$queue->Name%> % } <%INIT> my $Queues = RT::Queues->new($session{'CurrentUser'}); $Queues->UnLimit(); my $Tickets = RT::Tickets->new($session{'CurrentUser'});

<±-// \–+>
Datorcentralen Luel� tekniska universitet
Name: Nils-Erik Svang�rd e-mail: nisse@dc.ltu.se
Ph: +46-920-49244 URL:http://www.dc.ltu.se
<±-\ //–+>