httemplate/browse/access_user.html

   1 <% include( 'elements/browse.html',
   2                  'title'              => 'Internal Users',
   3                  'menubar'            => [ #'Main menu' => $p,
   4                                            'Internal access groups' => $p.'browse/access_group.html',
   5                                          ],
   6                  'html_init'          => $html_init,
   7                  'name'               => 'internal users',
   8                  'disableable'        => 1,
   9                  'disabled_statuspos' => 2,
  10                  'query'              => { 'table'     => 'access_user',
  11                                            'hashref'   => {},
  12                                            'extra_sql' => 'ORDER BY last, first'
  13                                          },
  14                  'count_query'        => $count_query,
  15                  'header'             => \@header,
  16                  'fields'             => \@fields,
  17                  'links'              => \@links,
  18                  'align'              => $align,
  19              )
  20 %>
  21 <%init>
  22
  23 die "access denied"
  24   unless $FS::CurrentUser::CurrentUser->access_right('Configuration');
  25
  26 my $html_init =
  27   "Internal users have access to the back-office interface.  Typically, this is your employees and contractors, but in a VISP setup, you can also add accounts for your reseller's employees.  It is <B>highly recommended</B> to add a <B>separate account for each person</B> rather than using role accounts.<BR><BR>".
  28   qq!<A HREF="${p}edit/access_user.html"><I>Add an internal user</I></A><BR><BR>!;
  29
  30 #false laziness w/access_group.html & agent_type.cgi
  31 my $groups_sub = sub {
  32   my $access_user = shift;
  33
  34   [ map {
  35           my $access_usergroup = $_;
  36           my $access_group = $access_usergroup->access_group;
  37           [
  38             {
  39               'data'  => $access_group->groupname,
  40               'align' => 'left',
  41               'link'  =>
  42                 $p. 'edit/access_group.html?'. $access_usergroup->groupnum,
  43             },
  44           ];
  45         }
  46     grep { $_->access_group # and ! $_->access_group->disabled
  47          }
  48     $access_user->access_usergroup,
  49
  50   ];
  51
  52 };
  53
  54 my $count_query = 'SELECT COUNT(*) FROM access_user';
  55
  56 my $link = [ $p.'edit/access_user.html?', 'usernum' ];
  57
  58 my @header = ( '#',       'Username', 'Full name', 'Groups'    );
  59 my @fields = ( 'usernum', 'username', 'name',      $groups_sub );
  60 my $align = 'rlll';
  61 my @links = ( $link, $link, $link, '' );
  62
  63 </%init>