%# Natives who beat drums to drive off evil spirits are objects of %# scorn to smart Americans who blow horns to break up traffic jams. %# -- Mary Ellen Kelly <& /Edit/Elements/PopHeader, Title => loc('Query'), Target => $Target, Action => 'index.html' &>

<&|/l&>List All Users
<&|/l&>Enter one or more conditions below to search for users
<&|/l&>User Number | <&|/l&>to <&|/l&>number
<&|/l&>Name |
Email |
<&|/l&>Group Name |
| <&|/l&>Include disabled users in search.

<& /Edit/Elements/PopFooter, CloseOnSubmit => 1 &> <%INIT> my $Groups = RT::Groups->new($session{'CurrentUser'}); $Groups->LimitToUserDefinedGroups(); $Groups->OrderBy( FIELD => 'Name', ORDER => 'DESC' ); my $GroupsRef = $Groups->ItemsArrayRef; # Schwartzian transform! my $List = [ map { $_->[0] } sort { $a->[1] cmp $b->[1] } map { [ $_ => $_->Name ] } @{ $GroupsRef } ]; <%ARGS> $Target => 'frmMAIN'