<%perl> my %objects; my $acl = RT::ACL->new ($session{'CurrentUser'}); $acl->ExcludeDelegatedRights(); $acl->LimitToPrincipal(Id => $session{'CurrentUser'}->Id); while(my $right = $acl->Next) { push @{$objects{$right->ObjectType}{$right->ObjectId}},$right; }

WORK IN PROGRESS

System

%foreach my $right (@{$objects{'System'}{0}}) { <% $right->RightName%><&|/l, $right->PrincipalObj->Object->SelfDescription &>as granted to [_1]
%}

Queues

% foreach my $queue (keys %{$objects{'Queue'}}) { % my $queue_obj = @{$objects{'Queue'}{$queue}}[0]->Object;

<%$queue_obj->Name%>

%foreach my $right (@{$objects{'Queue'}{$queue}}) { <% $right->RightName%><&|/l, $right->PrincipalObj->Object->SelfDescription &>as granted to [_1]
%}}

Groups

% foreach my $Group (keys %{$objects{'Group'}}) { % my $Group_obj = @{$objects{'Group'}{$Group}}[0]->Object;

<%$Group_obj->Name%>

%foreach my $right (@{$objects{'Group'}{$Group}}) { <% $right->RightName%><&|/l, $right->PrincipalObj->Object->SelfDescription &>as granted to [_1]
%}}