rt/html/Admin/CustomFields/UserRights.html

   1 %# BEGIN BPS TAGGED BLOCK {{{
   2 %#
   3 %# COPYRIGHT:
   4 %#
   5 %# This software is Copyright (c) 1996-2009 Best Practical Solutions, LLC
   6 %#                                          <jesse@bestpractical.com>
   7 %#
   8 %# (Except where explicitly superseded by other copyright notices)
   9 %#
  10 %#
  11 %# LICENSE:
  12 %#
  13 %# This work is made available to you under the terms of Version 2 of
  14 %# the GNU General Public License. A copy of that license should have
  15 %# been provided with this software, but in any event can be snarfed
  16 %# from www.gnu.org.
  17 %#
  18 %# This work is distributed in the hope that it will be useful, but
  19 %# WITHOUT ANY WARRANTY; without even the implied warranty of
  20 %# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  21 %# General Public License for more details.
  22 %#
  23 %# You should have received a copy of the GNU General Public License
  24 %# along with this program; if not, write to the Free Software
  25 %# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
  26 %# 02110-1301 or visit their web page on the internet at
  27 %# http://www.gnu.org/licenses/old-licenses/gpl-2.0.html.
  28 %#
  29 %#
  30 %# CONTRIBUTION SUBMISSION POLICY:
  31 %#
  32 %# (The following paragraph is not intended to limit the rights granted
  33 %# to you to modify and distribute this software under the terms of
  34 %# the GNU General Public License and is only of importance to you if
  35 %# you choose to contribute your changes and enhancements to the
  36 %# community by submitting them to Best Practical Solutions, LLC.)
  37 %#
  38 %# By intentionally submitting any modifications, corrections or
  39 %# derivatives to this work, or any other work intended for use with
  40 %# Request Tracker, to Best Practical Solutions, LLC, you confirm that
  41 %# you are the copyright holder for those contributions and you grant
  42 %# Best Practical Solutions,  LLC a nonexclusive, worldwide, irrevocable,
  43 %# royalty-free, perpetual, license to use, copy, create derivative
  44 %# works based on those contributions, and sublicense and distribute
  45 %# those contributions and any derivatives thereof.
  46 %#
  47 %# END BPS TAGGED BLOCK }}}
  48 <& /Admin/Elements/Header, Title => $title &>
  49 <& /Admin/Elements/CustomFieldTabs, id => $id,
  50 current_tab => "Admin/CustomFields/UserRights.html?id=".$id,
  51 Title => $title, &>
  52 <& /Elements/ListActions, actions => \@results &>
  53
  54   <form method="post" action="UserRights.html">
  55     <input type="hidden" class="hidden" name="id" value="<% $CustomFieldObj->id %>" />
  56
  57
  58 <table>
  59
  60 %       while (my $Member = $Users->Next()) {
  61 % my $UserObj = $Member->MemberObj->Object();
  62 % my $group = RT::Group->new($session{'CurrentUser'});
  63 % $group->LoadACLEquivalenceGroup($Member->MemberObj);
  64   <tr align="right">
  65         <td valign="top">
  66             <% $UserObj->Name %>
  67                   </td>
  68           <td>
  69             <& /Admin/Elements/SelectRights, PrincipalId=> $group->PrincipalId,
  70         Object => $CustomFieldObj  &>
  71           </td>
  72         </tr>
  73 % }
  74       </table>
  75
  76       <& /Elements/Submit, Caption => loc("Be sure to save your changes"), Reset => 1 &>
  77
  78   </form>
  79
  80 <%INIT>
  81
  82   #Update the acls.
  83   my @results;
  84 foreach my $arg (keys %ARGS) {
  85         if ($arg =~ /GrantRight-(\d+)-(.*?)-(\d+)$/) {
  86             my $principal_id = $1;
  87             my $object_type = $2;
  88             my $object_id = $3;
  89             my $rights = $ARGS{$arg};
  90
  91             my $principal = RT::Principal->new($session{'CurrentUser'});
  92             $principal->Load($principal_id);
  93             my $obj;
  94
  95             if ($object_type eq 'RT::CustomField') {
  96                 $obj = RT::CustomField->new($session{'CurrentUser'});
  97                 $obj->Load($object_id);
  98
  99             } else {
 100                 push (@results, loc("System Error").
 101                                 loc("Rights could not be granted for [_1]",
 102 $object_type));
 103                 next;
 104             }
 105
 106             my @rights = ref($ARGS{$arg}) eq 'ARRAY' ? @{$ARGS{$arg}} :
 107 ($ARGS{$arg});
 108             foreach my $right (@rights) {
 109                 next unless ($right);
 110                 my ($val, $msg) = $principal->GrantRight(Object => $obj, Right
 111 => $right);
 112                 push (@results, $msg);
 113             }
 114         }
 115      elsif ($arg =~ /RevokeRight-(\d+)-(.*?)-(\d+)-(.*?)$/) {
 116             my $principal_id = $1;
 117             my $object_type = $2;
 118             my $object_id = $3;
 119             my $right = $4;
 120
 121             my $principal = RT::Principal->new($session{'CurrentUser'});
 122             $principal->Load($principal_id);
 123             next unless ($right);
 124             my $obj;
 125
 126             if ($object_type eq 'RT::CustomField') {
 127                 $obj = RT::CustomField->new($session{'CurrentUser'});
 128                 $obj->Load($object_id);
 129             } else {
 130                 push (@results, loc("System Error").
 131                                 loc("Rights could not be revoked for [_1]",
 132 $object_type));
 133                 next;
 134             }
 135             my ($val, $msg) = $principal->RevokeRight(Object => $obj, Right =>
 136 $right);
 137             push (@results, $msg);
 138         }
 139 }
 140
 141
 142 # {{{ Deal with setting up the display of current rights.
 143
 144
 145
 146 if (!defined $id) {
 147     $m->comp("/Elements/Error", Why => loc("No Class defined"));
 148 }
 149
 150 my $CustomFieldObj = RT::CustomField->new($session{'CurrentUser'});
 151 $CustomFieldObj->Load($id) || $m->comp("/Elements/Error", Why => loc("Couldn't load Class [_1]",$id));
 152
 153 # Find out which users we want to display ACL selects for
 154 my $Privileged = RT::Group->new($session{'CurrentUser'});
 155 $Privileged->LoadSystemInternalGroup('Privileged');
 156 my $Users = $Privileged->MembersObj();
 157
 158
 159 my $title = loc('Modify user rights for custom field [_1]', $CustomFieldObj->Name);
 160
 161 # }}}
 162
 163 </%INIT>
 164
 165 <%ARGS>
 166 $id => undef
 167 $UserString => undef
 168 $UserOp => undef
 169 $UserField => undef
 170 </%ARGS>