The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
% my $Title = loc("Queue Rights for [_1]: [_2]", $principal->IsUser ? loc('User') : loc('Group'), $principal->Object->Name ? $principal->Object->Name : $principal->Object->Type);
<& /Elements/Header, Title=>$Title &>
<& /Admin/Elements/ToolTabs,
    current_tab => 'Admin/Tools/RightsMatrix/',
    current_subtab => 'Admin/Tools/RightsMatrix/QueueRightsMatrix.html',
    Title=>$Title &>

<& /Admin/Tools/RightsMatrix/Elements/QueueRightsMatrix, %ARGS  &>
<%INIT>
use RTx::RightsMatrix::Util;
my ($principal) = RTx::RightsMatrix::Util::get_principal( Principal => $ARGS{Principal} || $ARGS{PrincipalId}, User => $ARGS{User}, CurrentUser => $session{CurrentUser} );
</%INIT>