%# "All my life I wanted to be someone; I guess I should have been more specific." %# -- Jane Wagner <& /Edit/Elements/104Header, %ARGS, Buttons => [ Add => "/Edit/Queues/Basic/index.html?Action-Add=1", Save => '', Delete => 1, Copy => '', Search => '', ], &>
<& $Tab, Text => 'Queues' &>
<& /Edit/Elements/Tabs, Map => $ARGS{Map}, URL => '/Edit/Queues/', Skip => '/Edit/Queues/Basic/' &>
  <&|/l&>Ticket Type > <&|/l&>Include disabled queues in listing.
<& List, Delete => sub { !$_[0]->Disabled }, List => $List, Begin => $Begin, ARGS => \%ARGS &>
<%INIT> if ($Action eq 'Delete') { foreach my $Id (@ListDelete) { my $item = RT::Queue->new($session{'CurrentUser'}); $item->Load($Id); $item->SetDisabled(1); } $Begin = 0; } my %Categories; my $Queues = RT::Queues->new($session{'CurrentUser'}); $Queues->UnLimit; $Queues->{'find_disabled_rows'} = 1 if $FindDisabledQueues; my $List = []; while (my $queue = $Queues->Next) { my $descr = $queue->Description; $Categories{$descr}++ if length $descr; next if length $Category and $descr ne $Category; push @$List, $queue; } @$List = sort { $a->Name cmp $b->Name } grep { !$_->Attribute('Hidden') } @$List; <%ARGS> $Action => '' $Category => '' $Begin => 0 $FindDisabledQueues => 0 @ListDelete => () $Tab => '/Edit/Elements/Tab'