%# One nice thing about egotists: they don't talk about other people. <& /Edit/Elements/104Header, Focus => 'NewCategory', Buttons => [ Add => "index.html?Action-Add=1", Save => "javascript:document.getElementById('mainform').submit()", Delete => 1, Copy => '', Search => '', ], Method => 'POST', &>
<& /Edit/Elements/Tab, Text => 'Queues' &>
<& /Edit/Elements/Tabs, Map => $ARGS{Map}, URL => '/Edit/Queues/Category/', Skip => '/Edit/Queues/Basic/' &>
<& Top, Item => $Category &>
<& List, Delete => 1, Item => $Category, List => $List, Categories => \%Categories, Begin => $Begin, ARGS => \%ARGS &>
<%INIT> my $Queues = RT::Queues->new($session{'CurrentUser'}); $Queues->UnLimit; my %Categories = map { $_ => 0 } @{ $Queues->Categories }; $Categories{$_} = 0 for split(/\n/, $RT::SystemUser->Attribute('Categories')); if ($Action eq 'Delete') { delete $Categories{$_} for @ListDelete; $Category = $NewCategory = ''; $Begin = 0; } while (my $queue = $Queues->Next) { my $descr = $queue->Description; if ($Action eq 'Save' and length($NewCategory) and $descr eq $Category) { $queue->SetDescription($NewCategory); $descr = $NewCategory; } $Categories{$descr}++ if length $descr; } if ($Action eq 'Add') { $Category = ''; $Begin = 0; } if (length $NewCategory) { delete $Categories{$Category} if length($Category); $Categories{$Category = $NewCategory} = 0; } my $List = [ sort keys %Categories ]; $Queues->SetCategories( $List ); <%ARGS> $Category => '' $NewCategory => '' $Begin => 0 $Action => '' @ListDelete => ()