<& /Admin/Elements/Header, Title => loc('Modify group rights for queue [_1]', $QueueObj->Name) &> <& /Admin/Elements/QueueTabs, id => $id &> <& /Elements/ListActions, actions => \@results &>
<& /Elements/TitleBoxStart, title => loc('Modify group rights for queue [_1]', $QueueObj->Name) &>

<&|/l&>System groups

% $Groups = RT::Groups->new($session{'CurrentUser'}); % $Groups->LimitToSystemInternalGroups(); % while (my $Group = $Groups->Next()) { % }
<% loc($Group->Type) %> <& /Admin/Elements/SelectRights, PrincipalId => $Group->PrincipalId, ObjectType => 'Queue', ObjectId => $QueueObj->Id &>

<&|/l&>Roles

% $Groups = RT::Groups->new($session{'CurrentUser'}); % $Groups->LimitToRolesForQueue($QueueObj->Id); % while (my $Group = $Groups->Next()) { % }
<% loc($Group->Type) %> <& /Admin/Elements/SelectRights, PrincipalId => $Group->PrincipalId, ObjectType => 'Queue', ObjectId => $QueueObj->Id &>

<&|/l&>User defined groups

% $Groups = RT::Groups->new($session{'CurrentUser'}); % $Groups->LimitToUserDefinedGroups(); % while (my $Group = $Groups->Next()) { % }
<% $Group->Name %> <& /Admin/Elements/SelectRights, PrincipalId => $Group->PrincipalId, ObjectType => 'Queue', ObjectId => $QueueObj->Id &>
<& /Elements/TitleBoxEnd &> <& /Elements/Submit, Caption => loc("Be sure to save your changes"), Reset => 1 &>
<%INIT> #Update the acls. my @results = ProcessACLChanges(\%ARGS); if (!defined $id) { Abort(loc("No Queue defined")); } my $QueueObj = RT::Queue->new($session{'CurrentUser'}); $QueueObj->Load($id) || Abort(loc("Couldn't load queue [_1]",$id)); my $Groups; <%ARGS> $id => undef