%# You're at the end of the road again. <& /Work/Elements/104Header, Title => 'New Request' &> % if ($RT::OIN104) {
 
<&|/l&>Ticket Type
% }
<& 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; } <%ARGS> $Category => '' $Begin => 0