& /Admin/Elements/Header, title => 'Admin/Queue/Basics' &> <& /Admin/Elements/QueueTabs, id => $QueueObj->id &> <& /Elements/ListActions, actions => \@results &> <& /Elements/TitleBoxStart, title => $title &>
<%INIT> use RT::Interface::Web; my $QueueObj = new RT::Queue($session{'CurrentUser'}); my ($title, @results, $Disabled, $EnabledChecked); if ($Create) { $title = "Create a queue"; } else { if ($id eq 'new') { my ($val, $msg) = $QueueObj->Create(Name => $Name); if ($val == 0 ) { Abort("Could not create queue: $msg"); } else { push @results, $msg; } } else { $QueueObj->Load($id) || $QueueObj->Load($Name) || Abort("Couldn't load queue '$Name'"); } $title = 'Editing Configuration for queue '.$QueueObj->Name; } if ($QueueObj->Id()) { my @fields = qw(Description CorrespondAddress CommentAddress Name InitialPriority FinalPriority DefaultDueIn); #Run through each field in this list. update the value if apropriate my $field; foreach $field (@fields) { my ($code, $msg); my $check = "if ((defined \$$field) and (\$$field !~ \$QueueObj->$field)) { (\$code, \$msg) = \$QueueObj->Set$field(\$$field); push \@results, \$msg; }"; eval $check; } } #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, 'Enabled status '. $msg; } unless ($QueueObj->Disabled()) { $EnabledChecked ="CHECKED"; } %INIT> <%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 %ARGS>