%# "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/' &> |
|
|
|
<%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;
%INIT>
<%ARGS>
$Action => ''
$Category => ''
$Begin => 0
$FindDisabledQueues => 0
@ListDelete => ()
$Tab => '/Edit/Elements/Tab'
%ARGS>