rt/webrt/Admin/Global/GroupRights.html

   1 <& /Admin/Elements/Header, Title => 'Modify System ACLS' &>
   2 <& /Admin/Elements/SystemTabs &>
   3
   4 <& /Elements/ListActions, actions => \@results &>
   5   <FORM METHOD=POST action="GroupRights.html">
   6
   7
   8
   9 <h2>Modify global rights for groups</h2>
  10
  11 <TABLE>
  12 <TR><TD>Pseudogroups</TD></TR>
  13 % while (my $GroupObj = $PseudoGroups->Next()) {
  14
  15               <TR ALIGN=RIGHT>
  16                 <TD VALIGN=TOP>
  17                   <% $GroupObj->Name %>
  18                 </TD>
  19                 <TD>
  20             <& /Admin/Elements/SelectRights, PrincipalObj => $GroupObj,
  21                                    PrincipalType => 'Group',
  22                                    Scope => 'System' &>
  23                 </TD>
  24               </TR>
  25
  26 % }
  27
  28 <TR><TD>Groups</TD></TR>
  29
  30 % while (my $GroupObj = $Groups->Next()) {
  31
  32               <TR ALIGN=RIGHT>
  33                 <TD VALIGN=TOP>
  34                   <% $GroupObj->Name %>
  35                 </TD>
  36                 <TD>
  37             <& /Admin/Elements/SelectRights, PrincipalObj => $GroupObj,
  38                                    PrincipalType => 'Group',
  39                                    Scope => 'System' &>
  40                 </TD>
  41               </TR>
  42
  43 % }
  44
  45       </TABLE>
  46     <& /Elements/Submit, Caption => "Be sure to save your changes", Reset => 1 &>
  47   </FORM>
  48
  49   <%INIT>
  50
  51    #Update the acls.
  52  my @results =  ProcessACLChanges(\@CheckACL, \%ARGS);
  53
  54
  55     # {{{ do basic initialization.
  56
  57
  58
  59   # Find out which groups we want to display ACL selects for.
  60   my $Groups = new RT::Groups($session{'CurrentUser'});
  61   #TODO: limit this to non-pseudogroups
  62   $Groups->LimitToReal();
  63
  64
  65   my $PseudoGroups = new RT::Groups($session{'CurrentUser'});
  66   #TODO: limit this to non-pseudogroups
  67   $PseudoGroups->LimitToPseudo;
  68
  69   # }}}
  70
  71
  72
  73
  74   </%INIT>
  75
  76 <%ARGS>
  77 @CheckACL => undef
  78 </%ARGS>