rt/webrt/Admin/Queues/GroupRights.html

   1 <& /Admin/Elements/Header, Title => 'Modify group rights for queue '. $QueueObj->Name &>
   2 <& /Admin/Elements/QueueTabs, id => $id &>
   3 <& /Elements/ListActions, actions => \@results &>
   4
   5   <FORM METHOD=POST ACTION="GroupRights.html">
   6     <INPUT TYPE=HIDDEN NAME=id VALUE="<% $QueueObj->id %>">
   7
   8
   9
  10 <& /Elements/TitleBoxStart, title => 'Modify group rights for queue '.$QueueObj->Name &>
  11
  12 <TABLE>
  13 <TR><TD>Pseudogroups</TD></TR>
  14 % while (my $GroupObj = $PseudoGroups->Next()) {
  15
  16               <TR ALIGN=RIGHT>
  17                 <TD VALIGN=TOP>
  18                   <% $GroupObj->Name %>
  19                 </TD>
  20                 <TD>
  21             <& /Admin/Elements/SelectRights, PrincipalObj => $GroupObj,
  22                                    PrincipalType => 'Group',
  23                                    QueueObj => $QueueObj,
  24                                    Scope => 'Queue' &>
  25
  26                 </TD>
  27               </TR>
  28
  29 % }
  30
  31 <TR><TD>Groups</TD></TR>
  32
  33 % while (my $GroupObj = $Groups->Next()) {
  34
  35               <TR ALIGN=RIGHT>
  36                 <TD VALIGN=TOP>
  37                   <% $GroupObj->Name %>
  38                 </TD>
  39                 <TD>
  40             <& /Admin/Elements/SelectRights, PrincipalObj => $GroupObj,
  41                                    PrincipalType => 'Group',
  42                                    QueueObj => $QueueObj,
  43                                    Scope => 'Queue' &>
  44
  45                 </TD>
  46               </TR>
  47
  48 % }
  49
  50       </TABLE>
  51
  52       <& /Elements/TitleBoxEnd &>
  53       <& /Elements/Submit, Caption => "Be sure to save your changes", Reset => 1 &>
  54   </FORM>
  55
  56 <%INIT>
  57
  58 #Update the acls.
  59 my @results =  ProcessACLChanges(\@CheckACL, \%ARGS);
  60
  61 # {{{ Deal with setting up the display of current rights.
  62
  63 # {{{ do basic initialization.
  64
  65 #Define vars used in html above
  66 my ($GroupObj);
  67
  68 my ($right);
  69
  70
  71 if (!defined $id) {
  72     Abort("No Queue defined");
  73 }
  74
  75 my $QueueObj = new RT::Queue($session{'CurrentUser'});
  76 $QueueObj->Load($id) ||
  77   Abort("Couldn't load queue $id");
  78
  79   # Find out which groups we want to display ACL selects for.
  80   my $Groups = new RT::Groups($session{'CurrentUser'});
  81   #TODO: limit this to non-pseudogroups
  82   $Groups->LimitToReal();
  83
  84
  85   my $PseudoGroups = new RT::Groups($session{'CurrentUser'});
  86   #TODO: limit this to non-pseudogroups
  87   $PseudoGroups->LimitToPseudo;
  88
  89
  90 # }}}
  91
  92
  93   # }}}
  94
  95 </%INIT>
  96
  97 <%ARGS>
  98 $id => undef
  99 $UserString => undef
 100 $UserOp => undef
 101 $UserField => undef
 102 @CheckACL => undef
 103 </%ARGS>