<BR>

% if ($msg) {
<%$msg%>
% } elsif ($Users) {
<ul>
% while (my $u = $Users->Next ) {
<li> <%$u->Name%> (<%$u->RealName%>) <& SelectQueueRights, Name => "GrantTo".$u->id &>
% }
</ul>
% }

<%INIT>
my ($msg, $Users);
if (!$ARGS{'UserString'}) {
$msg = "No users selected.";
 }
else {
    $Users = new RT::Users($session{'CurrentUser'});
    $Users->Limit(FIELD => $ARGS{'UserField'},
                 VALUE => $ARGS{'UserString'},
                 OPERATOR => $ARGS{'UserOp'});
     }
</%INIT>

<%ARGS>
$UserField => 'Name'
$UserOp => '='
$UserString => undef
</%ARGS>
