blob: 3850a18f2372562b3d7b21f8f8a73f58c606b0da (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
|
<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>
|