rt/webrt/Admin/Users/index.html

   1 <& /Admin/Elements/Header, Title => 'Admin users' &>
   2 <& /Admin/Elements/Tabs, current_tab => 'Admin/Users/' &>
   3
   4
   5 <& /Elements/TitleBoxStart, title => 'Select a user' &>
   6
   7 <TABLE>
   8 <TR>
   9 <TD VALIGN=TOP>
  10
  11 <FORM METHOD=POST ACTION="<% $RT::WebPath %>/Admin/Users/">
  12
  13 Find people whose <& /Elements/SelectUsers &><BR>
  14 <input type="checkbox" name="FindDisabledUsers"> Include disabled users in search.
  15 <BR>
  16 <div align=right><input type=submit value="Go!"></div>
  17 </FORM>
  18 </TD>
  19 <TD VALIGN=TOP>
  20 <UL>
  21 % if ($session{'CurrentUser'}->HasSystemRight('AdminUsers')) {
  22 <LI><A HREF="<%$RT::WebPath%>/Admin/Users/Modify.html?Create=1">Create a new user</A><BR><BR></LI>
  23 </UL>
  24 % }
  25
  26 <%$caption%><BR>
  27 <UL>
  28 %if ($users->Count == 0) {
  29 <LI> <i>No users matching search criteria found.</i>
  30 % }
  31 %while ( $user = $users->Next) {
  32 <LI><A HREF="Modify.html?id=<%$user->id%>"><%$user->Name || '(no name listed)'%></a></LI>
  33 %}
  34
  35 </UL>
  36 </TD>
  37 </TR>
  38 </TABLE>
  39 <& /Elements/TitleBoxEnd &>
  40
  41 <%INIT>
  42 my ($user, $caption);
  43 my $users = new RT::Users($session{'CurrentUser'});
  44
  45 if ($FindDisabledUsers) {
  46         $users->{'find_disabled_rows'} = 1;
  47 }
  48
  49 unless (defined $UserString) {
  50     $users->LimitToPrivileged();
  51     $caption = "Privileged users";
  52 }
  53 else {
  54     $caption = "Users matching search criteria";
  55
  56   if ($UserString) {
  57         $users->Limit( FIELD => $UserField,
  58                         OPERATOR => $UserOp,
  59                        VALUE => $UserString);
  60
  61 }
  62 }
  63 </%INIT>
  64 <%ARGS>
  65 $UserString => undef
  66 $UserOp => '='
  67 $UserField => 'Name'
  68 $IdLike => undef
  69 $EmailLike => undef
  70 $FindDisabledUsers => 0
  71 </%ARGS>