<& /Admin/Elements/Header, Title => loc('Admin/Queue/Basics') &> <& /Admin/Elements/QueueTabs, id => $QueueObj->id &> <& /Elements/ListActions, actions => \@results &> <& /Elements/TitleBoxStart, title => $title &>
%if ($Create ) { % } else { % }
<&|/l&>Queue Name:
<&|/l&>Description:
<&|/l&>Correspondence Address: <&|/l&>Comment Address:
<&|/l&>Priority starts at: <&|/l&>Over time, priority moves toward:
<&|/l&>Requests should be due in: <&|/l&>days.
> <&|/l&>Enabled (Unchecking this box disables this queue)
<& /Elements/TitleBoxEnd &> <& /Elements/Submit &>
<%INIT> my $QueueObj = new RT::Queue($session{'CurrentUser'}); my ($title, @results, $Disabled, $EnabledChecked); if ($Create) { $title = loc("Create a queue"); } else { if ($id eq 'new') { my ($val, $msg) = $QueueObj->Create(Name => $Name); if ($val == 0 ) { Abort("$msg"); } else { push @results, $msg; } } else { $QueueObj->Load($id) || $QueueObj->Load($Name) || Abort("Couldn't load queue '$Name'"); } $title = loc('Editing Configuration for queue [_1]', $QueueObj->Name); } if ($QueueObj->Id()) { my @attribs= qw(Description CorrespondAddress CommentAddress Name InitialPriority FinalPriority DefaultDueIn); @results = UpdateRecordObject( AttributesRef => \@attribs, Object => $QueueObj, ARGSRef => \%ARGS); } #we're asking about enabled on the web page but really care about disabled. if ($Enabled == 1) { $Disabled = 0; } else { $Disabled = 1; } if ( ($SetEnabled) and ( $Disabled != $QueueObj->Disabled) ) { my ($code, $msg) = $QueueObj->SetDisabled($Disabled); push @results, loc('Enabled status [_1]', $msg); } unless ($QueueObj->Disabled()) { $EnabledChecked ="CHECKED"; } <%ARGS> $id => undef $result => undef $Name => undef $Create => undef $Description => undef $CorrespondAddress => undef $CommentAddress => undef $InitialPriority => undef $FinalPriority => undef $DefaultDueIn => undef $SetEnabled => undef $Enabled => undef