rt/html/Admin/CustomFields/GroupRights.html

   1 %# BEGIN BPS TAGGED BLOCK {{{
   2 %#
   3 %# COPYRIGHT:
   4 %#
   5 %# This software is Copyright (c) 1996-2005 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., 675 Mass Ave, Cambridge, MA 02139, USA.
  26 %#
  27 %#
  28 %# CONTRIBUTION SUBMISSION POLICY:
  29 %#
  30 %# (The following paragraph is not intended to limit the rights granted
  31 %# to you to modify and distribute this software under the terms of
  32 %# the GNU General Public License and is only of importance to you if
  33 %# you choose to contribute your changes and enhancements to the
  34 %# community by submitting them to Best Practical Solutions, LLC.)
  35 %#
  36 %# By intentionally submitting any modifications, corrections or
  37 %# derivatives to this work, or any other work intended for use with
  38 %# Request Tracker, to Best Practical Solutions, LLC, you confirm that
  39 %# you are the copyright holder for those contributions and you grant
  40 %# Best Practical Solutions,  LLC a nonexclusive, worldwide, irrevocable,
  41 %# royalty-free, perpetual, license to use, copy, create derivative
  42 %# works based on those contributions, and sublicense and distribute
  43 %# those contributions and any derivatives thereof.
  44 %#
  45 %# END BPS TAGGED BLOCK }}}
  46 <& /Admin/Elements/Header, Title => $title &>
  47 <& /Admin/Elements/CustomFieldTabs,
  48     id => $id,
  49     current_tab => "Admin/CustomFields/GroupRights.html?id=".$id,
  50     Title => $title
  51 &>
  52 <& /Elements/ListActions, actions => \@results &>
  53
  54   <FORM METHOD=POST ACTION="GroupRights.html">
  55     <INPUT TYPE=HIDDEN NAME=id VALUE="<% $CustomFieldObj->id %>">
  56
  57
  58 <h1><&|/l&>System groups</&></h1>
  59 <TABLE>
  60 % $Groups = RT::Groups->new($session{'CurrentUser'});
  61 % $Groups->LimitToSystemInternalGroups();
  62 %       while (my $Group = $Groups->Next()) {
  63   <TR ALIGN=RIGHT>
  64         <TD VALIGN=TOP>
  65             <% loc($Group->Type) %>
  66                   </TD>
  67           <TD>
  68             <& /Admin/Elements/SelectRights, PrincipalId => $Group->PrincipalId,
  69         Object => $CustomFieldObj  &>
  70           </TD>
  71         </TR>
  72 % }
  73 </TABLE>
  74 <h1><&|/l&>User defined groups</&></h1>
  75 <TABLE>
  76 % $Groups = RT::Groups->new($session{'CurrentUser'});
  77 % $Groups->LimitToUserDefinedGroups();
  78 %       while (my $Group = $Groups->Next()) {
  79   <TR ALIGN=RIGHT>
  80         <TD VALIGN=TOP>
  81             <% $Group->Name %>
  82                   </TD>
  83           <TD>
  84             <& /Admin/Elements/SelectRights, PrincipalId => $Group->PrincipalId,
  85         Object => $CustomFieldObj  &>
  86           </TD>
  87         </TR>
  88 % }
  89 </TABLE>
  90
  91       <& /Elements/Submit, Caption => loc("Be sure to save your changes"), Reset => 1 &>
  92
  93   </FORM>
  94
  95 <%INIT>
  96
  97
  98
  99
 100
 101
 102 if (!defined $id) {
 103     $m->comp("/Elements/Error", Why => loc("No CustomField defined"));
 104 }
 105
 106 my $CustomFieldObj = RT::CustomField->new($session{'CurrentUser'});
 107 $CustomFieldObj->Load($id) || $m->comp("/Elements/Error", Why => loc("Couldn't load CustomField [_1]",$id));
 108
 109 my $Groups;
 110
 111   my ( $ACL, @results );
 112
 113     foreach my $arg (keys %ARGS) {
 114         if ($arg =~ /GrantRight-(\d+)-(.*?)-(\d+)$/) {
 115             my $principal_id = $1;
 116             my $object_type = $2;
 117             my $object_id = $3;
 118             my $rights = $ARGS{$arg};
 119
 120             my $principal = RT::Principal->new($session{'CurrentUser'});
 121             $principal->Load($principal_id);
 122             my $obj;
 123
 124             if ($object_type eq 'RT::CustomField') {
 125                 $obj = RT::CustomField->new($session{'CurrentUser'});
 126                 $obj->Load($object_id);
 127             } else {
 128                 push (@results, loc("System Error").
 129                                 loc("Rights could not be granted for [_1]", $object_type));
 130                 next;
 131             }
 132
 133             my @rights = ref($ARGS{$arg}) eq 'ARRAY' ? @{$ARGS{$arg}} : ($ARGS{$arg});
 134             foreach my $right (@rights) {
 135                 next unless ($right);
 136                 my ($val, $msg) = $principal->GrantRight(Object => $obj, Right => $right);
 137                 push (@results, $msg);
 138             }
 139         }
 140      elsif ($arg =~ /RevokeRight-(\d+)-(.*?)-(\d+)-(.*?)$/) {
 141             my $principal_id = $1;
 142             my $object_type = $2;
 143             my $object_id = $3;
 144             my $right = $4;
 145
 146             my $principal = RT::Principal->new($session{'CurrentUser'});
 147             $principal->Load($principal_id);
 148             next unless ($right);
 149             my $obj;
 150
 151             if ($object_type eq 'RT::CustomField') {
 152                 $obj = RT::CustomField->new($session{'CurrentUser'});
 153                 $obj->Load($object_id);
 154             } else {
 155                 push (@results, loc("System Error").
 156                                 loc("Rights could not be revoked for [_1]", $object_type));
 157                 next;
 158             }
 159             my ($val, $msg) = $principal->RevokeRight(Object => $obj, Right => $right);
 160             push (@results, $msg);
 161         }
 162 }
 163
 164 my $title = loc('Modify group rights for custom field [_1]', $CustomFieldObj->Name);
 165
 166 </%INIT>
 167
 168 <%ARGS>
 169 $id => undef
 170 </%ARGS>