httemplate/browse/access_group.html

   1 %
   2 %
   3 %my $html_init =
   4 %  "Internal access groups control access to the back-office interface.<BR><BR>".
   5 %  qq!<A HREF="${p}edit/access_group.html"><I>Add an internal access group</I></A><BR><BR>!;
   6 %
   7 %#false laziness w/access_user.html & agent_type.cgi
   8 %my $agents_sub = sub {
   9 %  my $access_group = shift;
  10 %
  11 %  [ map {
  12 %          my $access_groupagent = $_;
  13 %          my $agent = $access_groupagent->agent;
  14 %          [
  15 %            {
  16 %              'data'  => $agent->agent,
  17 %              'align' => 'left',
  18 %              'link'  => $p. 'edit/agent.cgi?'. $agent->agentnum,
  19 %            },
  20 %          ];
  21 %        }
  22 %    grep { $_->agent } #?
  23 %    $access_group->access_groupagent,
  24 %
  25 %  ];
  26 %
  27 %};
  28 %
  29 %my $rights_sub = sub {
  30 %  my $access_group = shift;
  31 %
  32 %  [ map { my $access_right = $_;
  33 %          [
  34 %            {
  35 %              'data'  => $access_right->rightname,
  36 %              'align' => 'left',
  37 %            },
  38 %          ];
  39 %        }
  40 %    $access_group->access_rights,
  41 %
  42 %  ];
  43 %
  44 %};
  45 %
  46 %my $count_query = 'SELECT COUNT(*) FROM access_group';
  47 %
  48 %my $link = [ $p.'edit/access_group.html?', 'groupnum' ];
  49 %
  50 %
  51 <% include( 'elements/browse.html',
  52                  'title'       => 'Internal Access Groups',
  53                  'menubar'     => [ # 'Main menu' => $p,
  54                                     'Internal users' => $p.'browse/access_user.html',
  55                                   ],
  56                  'html_init'   => $html_init,
  57                  'name'        => 'internal access groups',
  58                  'query'       => { 'table'     => 'access_group',
  59                                     'hashref'   => {},
  60                                     'extra_sql' => 'ORDER BY groupname', #??
  61                                   },
  62                  'count_query' => $count_query,
  63                  'header'      => [ '#',
  64                                     'Group name',
  65                                     'Agents',
  66                                     'Rights',
  67                                   ],
  68                  'fields'      => [ 'groupnum',
  69                                     'groupname',
  70                                     $agents_sub,
  71                                     $rights_sub,
  72                                   ],
  73                  'links'       => [ $link,
  74                                     $link,
  75                                     '',
  76                                     '',
  77                                   ],
  78              )
  79 %>