1 <INPUT TYPE=HIDDEN NAME="CheckACL" VALUE="<%$ACLDesc%>">
6 <SELECT SIZE=5 MULTIPLE NAME="GrantACE-<%$ACLDesc%>">
7 % foreach $right (sort keys %Rights) {
8 <OPTION VALUE="<%$right%>"
11 <OPTION VALUE="" SELECTED>(no value)</OPTION>
15 <h3>Current rights</h3>
16 <i>(Check box to revoke right)</i> <BR>
17 % while (my $right = $ACLObj->Next()) {
18 % if ($right->RightName) {
19 <input type=checkbox value="<%$right->Id%>" name="RevokeACE"> <%$right->RightName%><br>
26 my ($right, $ACLDesc, $AppliesTo, %Rights);
29 my $ACLObj = new RT::ACL($session{'CurrentUser'});
30 my $ACE = new RT::ACE($session{'CurrentUser'});
32 if ($Scope eq 'Queue') {
33 $AppliesTo = $QueueObj->Id;
34 $ACLObj->LimitToQueue($AppliesTo);
35 %Rights = $ACE->QueueRights();
37 elsif ($Scope eq 'System') {
39 $ACLObj->LimitToSystem();
40 %Rights = ( $ACE->SystemRights , $ACE->QueueRights());
43 if ($PrincipalType eq 'Group') {
44 $ACLObj->LimitPrincipalToGroup($PrincipalObj->Id);
46 elsif ($PrincipalType eq 'User') {
47 $ACLObj->LimitPrincipalToUser($PrincipalObj->Id);
50 $ACLDesc = "$PrincipalType-".$PrincipalObj->Id."-$Scope-$AppliesTo";
54 $PrincipalType => undef
55 $PrincipalObj => undef