%# BEGIN LICENSE BLOCK %# %# Copyright (c) 1996-2003 Jesse Vincent %# %# (Except where explictly superceded by other copyright notices) %# %# This work is made available to you under the terms of Version 2 of %# the GNU General Public License. A copy of that license should have %# been provided with this software, but in any event can be snarfed %# from www.gnu.org. %# %# This work is distributed in the hope that it will be useful, but %# WITHOUT ANY WARRANTY; without even the implied warranty of %# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU %# General Public License for more details. %# %# Unless otherwise specified, all modifications, corrections or %# extensions to this work which alter its source code become the %# property of Best Practical Solutions, LLC when submitted for %# inclusion in the work. %# %# %# END LICENSE BLOCK

<&|/l&>Current rights

% if ($ACLObj->Count() > 0) { (<&|/l&>Check box to revoke right)
% } else { <&|/l&>No rights granted.
% } % while (my $right = $ACLObj->Next()) { % if ($right->RightName) { <% loc($right->RightName) %>
% } % }

<&|/l&>New rights

<%INIT> my ($right, $ACLDesc, $AppliesTo, %Rights); # if the principal id points to a user, we really want to point # to their ACL equivalence group. The machinations we're going through # lead me to start to suspect that we really want users and groups # to just be the same table. or _maybe_ that we want an object db. my $princ = RT::Principal->new($RT::SystemUser); $princ->Load($PrincipalId); if ($princ->PrincipalType eq 'User') { my $group = RT::Group->new($RT::SystemUser); $group->LoadACLEquivalenceGroup($princ); $PrincipalId = $group->PrincipalId; } my $ACLObj = new RT::ACL($session{'CurrentUser'}); my $ACE = new RT::ACE($session{'CurrentUser'}); $ACLObj->LimitToObject( $Object); $ACLObj->LimitToPrincipal( Id => $PrincipalId); $ACLObj->OrderBy(FIELD=>'RightName'); if (ref($Object) && UNIVERSAL::can($Object, 'AvailableRights')) { %Rights = %{$Object->AvailableRights}; } else { %Rights = { loc('System Error') => loc("No rights found")}; } $ACLDesc = "$PrincipalId-".ref($Object)."-".$Object->Id; <%ARGS> $PrincipalType => undef $PrincipalId => undef $Object =>undef