httemplate/browse/access_user.html

   1 <%
   2
   3 my $html_init =
   4   "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>".
   5   qq!<A HREF="${p}edit/access_user.html"><I>Add an internal user</I></A><BR><BR>!;
   6
   7 #false laziness w/agent_type.cgi
   8 my $groups_sub = sub {
   9   my $access_user = shift;
  10
  11   [ map {
  12           my $access_usergroup = $_;
  13           my $access_group = $access_usergroup->access_group;
  14           [
  15             {
  16               'data'  => $access_group->groupname,
  17               'align' => 'left',
  18               'link'  =>
  19                 $p. 'edit/access_group.html?'. $access_usergroup->groupnum,
  20             },
  21           ];
  22         }
  23     grep { $_->access_group # and ! $_->access_group->disabled
  24          }
  25     $access_user->access_usergroup,
  26
  27   ];
  28
  29 };
  30
  31 my $count_query = 'SELECT COUNT(*) FROM access_user';
  32
  33 my $link = [ $p.'edit/access_user.html?', 'usernum' ];
  34
  35 %><%= include( 'elements/browse.html',
  36                  'title'       => 'Internal Users',
  37                  'menubar'     => [ #'Main menu' => $p,
  38                                     'Internal access groups' => $p.'browse/access_group.html',
  39                                   ],
  40                  'html_init'   => $html_init,
  41                  'name'        => 'internal users',
  42                  'query'       => { 'table'     => 'access_user',
  43                                     'hashref'   => {},
  44                                     'extra_sql' => 'ORDER BY last, first',
  45                                   },
  46                  'count_query' => $count_query,
  47                  'header'      => [ '#',
  48                                     'Username',
  49                                     'Full name',
  50                                     'Groups'
  51                                   ],
  52                  'fields'      => [ 'usernum',
  53                                     'username',
  54                                     'name', # sub { shift->name },
  55                                     $groups_sub,
  56                                   ],
  57                  'links'       => [ $link,
  58                                     $link,
  59                                     $link,
  60                                     ''
  61                                   ],
  62              )
  63 %>