New rights % foreach $right (sort keys %Rights) { <%$right%> % } (no value)

Current rights (Check box to revoke right) % while (my $right = $ACLObj->Next()) { % if ($right->RightName) { <%$right->RightName%> % } % }

<%INIT> my ($right, $ACLDesc, $AppliesTo, %Rights); my $ACLObj = new RT::ACL($session{'CurrentUser'}); my $ACE = new RT::ACE($session{'CurrentUser'}); if ($Scope eq 'Queue') { $AppliesTo = $QueueObj->Id; $ACLObj->LimitToQueue($AppliesTo); %Rights = $ACE->QueueRights(); } elsif ($Scope eq 'System') { $AppliesTo = 0; $ACLObj->LimitToSystem(); %Rights = ( $ACE->SystemRights , $ACE->QueueRights()); } if ($PrincipalType eq 'Group') { $ACLObj->LimitPrincipalToGroup($PrincipalObj->Id); } elsif ($PrincipalType eq 'User') { $ACLObj->LimitPrincipalToUser($PrincipalObj->Id); } $ACLDesc = "$PrincipalType-".$PrincipalObj->Id."-$Scope-$AppliesTo"; <%ARGS> $PrincipalType => undef $PrincipalObj => undef $Scope => undef $QueueObj => undef