rt/webrt/Admin/Queues/UserRights.html

   1 <& /Admin/Elements/Header, Title => 'Modify user rights for queue '. $QueueObj->Name &>
   2 <& /Admin/Elements/QueueTabs, id => $id &>
   3 <& /Elements/ListActions, actions => \@results &>
   4
   5   <FORM METHOD=POST ACTION="UserRights.html">
   6     <INPUT TYPE=HIDDEN NAME=id VALUE="<% $QueueObj->id %>">
   7
   8 <& /Elements/TitleBoxStart, title => 'Modify user rights for queue '.$QueueObj->Name &>
   9
  10 <TABLE>
  11
  12 %       while (my $UserObj = $Users->Next()) {
  13   <TR ALIGN=RIGHT>
  14         <TD VALIGN=TOP>
  15             <% $UserObj->Name %>
  16                   </TD>
  17           <TD>
  18             <& /Admin/Elements/SelectRights, PrincipalObj => $UserObj,
  19                     PrincipalType => 'User',
  20                       Scope => 'Queue',
  21                         QueueObj => $QueueObj &>
  22           </TD>
  23         </TR>
  24 % }
  25       </TABLE>
  26
  27       <& /Elements/TitleBoxEnd &>
  28       <& /Elements/Submit, Caption => "Be sure to save your changes", Reset => 1 &>
  29
  30   </FORM>
  31
  32 <%INIT>
  33
  34   #Update the acls.
  35   my @results =  ProcessACLChanges(\@CheckACL, \%ARGS);
  36
  37 # {{{ Deal with setting up the display of current rights.
  38
  39 # {{{ do basic initialization.
  40
  41 #Define vars used in html above
  42 my ($GroupObj);
  43
  44 my ($right);
  45
  46
  47 if (!defined $id) {
  48     Abort("No Queue defined");
  49 }
  50
  51 my $QueueObj = new RT::Queue($session{'CurrentUser'});
  52 $QueueObj->Load($id) ||
  53   Abort("Couldn't load queue $id");
  54
  55 # Find out which users we want to display ACL selects for
  56 my $Users = new RT::Users($session{'CurrentUser'});
  57 $Users->LimitToPrivileged();
  58
  59 # }}}
  60
  61
  62 # }}}
  63
  64 </%INIT>
  65
  66 <%ARGS>
  67 $id => undef
  68 $UserString => undef
  69 $UserOp => undef
  70 $UserField => undef
  71 @CheckACL => undef
  72 </%ARGS>