3 %# Copyright (c) 1996-2003 Jesse Vincent <jesse@bestpractical.com>
5 %# (Except where explictly superceded by other copyright notices)
7 %# This work is made available to you under the terms of Version 2 of
8 %# the GNU General Public License. A copy of that license should have
9 %# been provided with this software, but in any event can be snarfed
12 %# This work is distributed in the hope that it will be useful, but
13 %# WITHOUT ANY WARRANTY; without even the implied warranty of
14 %# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
15 %# General Public License for more details.
17 %# Unless otherwise specified, all modifications, corrections or
18 %# extensions to this work which alter its source code become the
19 %# property of Best Practical Solutions, LLC when submitted for
20 %# inclusion in the work.
24 % if ($Show ne 'Groups') {
25 <b><&|/l&>Users</&></b>
26 <SELECT MULTIPLE NAME="<%$Name%>Users" SIZE=10>
27 %while (my $user = $users->Next) {
28 <OPTION VALUE="User-<%$user->id%>"><%$user->Name%></OPTION>
33 % if ($Show ne 'Users') {
34 <b><&|/l&>Groups</&></b>
35 <SELECT MULTIPLE NAME="<%$Name%>Groups" SIZE=10>
36 %while (my $group = $groups->Next) {
37 <OPTION VALUE="Group-<%$group->id%>"><%$group->Name%></OPTION>
43 my $users = new RT::Users($session{'CurrentUser'});
45 $users->Limit(FIELD => 'id', VALUE => $RT::SystemUser->id, OPERATOR => '!=' );
46 $users->Limit(FIELD => 'id', VALUE => $RT::Nobody->id, OPERATOR => '!=' );
47 $users->LimitToPrivileged();
49 my $groups = new RT::Groups($session{'CurrentUser'});
51 # self-recursive group membership considered harmful!
52 $groups->Limit(FIELD => 'id', VALUE => $Group->id, OPERATOR => '!=' );
53 $groups->Limit(FIELD => 'Domain', OPERATOR => '=', VALUE => 'UserDefined');