rt/webrt/Admin/Elements/GrantQueueRightsTo

   1 <BR>
   2
   3 % if ($msg) {
   4 <%$msg%>
   5 % } elsif ($Users) {
   6 <ul>
   7 % while (my $u = $Users->Next ) {
   8 <li> <%$u->Name%> (<%$u->RealName%>) <& SelectQueueRights, Name => "GrantTo".$u->id &>
   9 % }
  10 </ul>
  11 % }
  12
  13 <%INIT>
  14 my ($msg, $Users);
  15 if (!$ARGS{'UserString'}) {
  16 $msg = "No users selected.";
  17  }
  18 else {
  19     $Users = new RT::Users($session{'CurrentUser'});
  20     $Users->Limit(FIELD => $ARGS{'UserField'},
  21                  VALUE => $ARGS{'UserString'},
  22                  OPERATOR => $ARGS{'UserOp'});
  23      }
  24 </%INIT>
  25
  26 <%ARGS>
  27 $UserField => 'Name'
  28 $UserOp => '='
  29 $UserString => undef
  30 </%ARGS>