The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending.
% my $Title = loc("Asset Custom Field Rights for [_1]: [_2]", $principal->IsUser ? loc('User') : loc('Group'), $principal->Object->Name ? $principal->Object->Name : $principal->Object->Type);
<& /Elements/Header, Title=>$Title &>
<& /Admin/Tools/RightsMatrix/Elements/UserRightsTabs,
    current_tab => 'User/Prefs.html',
    current_subtab => 'Admin/Tools/RightsMatrix/User/AssetCFRightsMatrix.html',
    Title=>$Title &>

<& /Admin/Tools/RightsMatrix/Elements/AssetCFRightsMatrix, %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>