[rt-users] JumpToQueue script

[Nils-Erik Svangård]

Hi!
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.
Enjoy!
/nisse
cut here ----------------------

<FORM ACTION="<% $RT::WebPath%>/Search/Results.html">
<input type="submit" value="Jump to"> 
<input type="hidden" name="Order" value="DESC">
<input type="hidden" name="Rows" value="50">
<SELECT NAME="Query">
<%PERL>
while ( my $queue = $Queues->Next) {
    my $tempvar = "Queue = '".$queue->Name."' AND  (Status = 'open' OR 
Status = 'new')";
</%PERL>
<OPTION VALUE="<%$tempvar%>"><%$queue->Name%></OPTION>
% }
</SELECT>
</FORM>
<%INIT>
my $Queues = RT::Queues->new($session{'CurrentUser'});
$Queues->UnLimit();
my $Tickets = RT::Tickets->new($session{'CurrentUser'});
</%INIT>

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