rt/html/User/Elements/DelegateRights

   1 %# {{{ BEGIN BPS TAGGED BLOCK
   2 %#
   3 %# COPYRIGHT:
   4 %#
   5 %# This software is Copyright (c) 1996-2004 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 <h2><%$sectionheading%></h2>
  47 <%perl>
  48
  49 foreach my $object (keys %{$objects->{$ObjectType}}) {
  50 unless ($ObjectType eq 'RT::System') {
  51 my $object_obj = @{$objects->{$ObjectType}{$object}}[0]->Object;
  52
  53 </%perl>
  54 <h3><% $object_obj->Name %></h3>
  55 % }
  56 <table width="100%" border="0" cellspacing="0" cellpadding="3">
  57 <tr>
  58         <th width=15%><&|/l&>Personal groups:</&></th>
  59 % while (my $pg = $personalgroups->Next) {
  60 <th><%$pg->Name%></th>
  61 % }
  62 </tr>
  63 <%perl>
  64 my $i;
  65 foreach my $right (@{$objects->{$ObjectType}{$object}}) {
  66 my $delegations = RT::ACL->new($session{'CurrentUser'});
  67 $delegations->DelegatedBy( Id => $session{'CurrentUser'}->PrincipalId);
  68 $delegations->DelegatedFrom ( Id => $right->Id);
  69
  70 my $del_hash = {};
  71 while ( my $delegation = $delegations->Next) {
  72         $del_hash->{$delegation->PrincipalId} = $delegation;
  73 }
  74 </%perl>
  75 % $i++;
  76 %
  77 <tr class="<%($i%2) && 'oddline'%>">
  78 <td>
  79 <% loc($right->RightName) %><br>
  80 <div align=right><font size="-2" color="#999999"><&|/l, $right->PrincipalObj->Object->SelfDescription &>as granted to [_1]</&></font></div>
  81        </td>
  82 % while (my $pg = $personalgroups->Next) {
  83 <td align=center>
  84         <input name="Delegate-ACE-<% $right->Id %>-to-<% $pg->PrincipalId%>" type=checkbox <%$ del_hash->{$pg->PrincipalId} && 'CHECKED' %>>
  85 % if ( $del_hash->{$pg->PrincipalId}) {
  86 <input type=hidden name="Delegate-Existing-ACE-<% $right->Id %>-to-<% $pg->PrincipalId%>-as-<%$del_hash->{$pg->PrincipalId}->Id%>">
  87 % }
  88 </td>
  89 % }
  90 <td>&nbsp;</td>
  91 </tr>
  92 %}
  93 </table>
  94 % }
  95 <%init>
  96
  97 my $sectionheading = loc("[_1] rights", loc($ObjectType =~ /^RT::(.*)$/));
  98 # 'System' # loc
  99 # 'Group'  # loc
 100 # 'Queue'  # loc
 101
 102 </%init>
 103 <%args>
 104 $ObjectType => undef
 105 $objects => undef
 106 $personalgroups => undef
 107 </%args>