<& /Admin/Elements/Header, Title => 'Admin/Queue/Basics' &> <& /Admin/Elements/QueueTabs, id => $QueueObj->id &> <& /Elements/ListActions, actions => \@results &> <& /Elements/TitleBoxStart, title => $title &>

%if ($Create ) { % } else { % }

Queue Name:
Description:
Correspondence Address:	(If left blank, will default to <%$RT::CorrespondAddress%>	Comment Address:	(If left blank, will default to <%$RT::CommentAddress%>
Priority starts at:		Over time, priority moves toward:
Requests should be due in:	days.
	> 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 = "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 @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, 'Enabled status '. $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