% if ($msg) {
<%$msg%>
% } elsif ($Users) {
% while (my $u = $Users->Next ) {
- <%$u->Name%> (<%$u->RealName%>) <& SelectQueueRights, Name => "GrantTo".$u->id &>
% }
% }
<%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>