%# You're at the end of the road again.
<& /Work/Elements/104Header, Title => 'New Request' &>
% if ($RT::OIN104) {
% }
<& List, List => $List, Begin => $Begin, ARGS => \%ARGS &>
<& /Work/Elements/104Footer &>
<%INIT>
$session{'WorkPage'} = '/Work/Queues/';
my %Categories;
my $Queues = RT::Queues->new($session{'CurrentUser'});
$Queues->OrderBy(FIELD => 'Name');
$Queues->UnLimit;
my $List = [];
while (my $queue = $Queues->Next) {
next if $queue->Attribute('Hidden');
my $descr = $queue->Description;
$Categories{$descr}++ if length $descr;
next if length $Category and $descr ne $Category;
push @$List, $queue;
}
%INIT>
<%ARGS>
$Category => ''
$Begin => 0
%ARGS>