1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
<UL> %while(my $ACE = $ACL->Next) { <LI><checkbox name="delete_ace_<%$ACE->id%>"> <%$ACE->RightName%> (<%$ACE->UserObj->RealName%>) %} </UL> <%INIT> my $ACL = new RT::ACL($session{'CurrentUser'}); $ACL->LimitToQueue($QueueObj->id); $ACL->LimitPrincipalToUser($PrincipalId); </%INIT> <%ARGS> $PrincipalId => undef $QueueObj => undef </%ARGS>