diff options
Diffstat (limited to 'httemplate/browse/access_group.html')
| -rw-r--r-- | httemplate/browse/access_group.html | 79 |
1 files changed, 79 insertions, 0 deletions
diff --git a/httemplate/browse/access_group.html b/httemplate/browse/access_group.html new file mode 100644 index 000000000..d1c3aea4c --- /dev/null +++ b/httemplate/browse/access_group.html @@ -0,0 +1,79 @@ +% +% +%my $html_init = +% "Internal access groups control access to the back-office interface.<BR><BR>". +% qq!<A HREF="${p}edit/access_group.html"><I>Add an internal access group</I></A><BR><BR>!; +% +%#false laziness w/access_user.html & agent_type.cgi +%my $agents_sub = sub { +% my $access_group = shift; +% +% [ map { +% my $access_groupagent = $_; +% my $agent = $access_groupagent->agent; +% [ +% { +% 'data' => $agent->agent, +% 'align' => 'left', +% 'link' => $p. 'edit/agent.cgi?'. $agent->agentnum, +% }, +% ]; +% } +% grep { $_->agent } #? +% $access_group->access_groupagent, +% +% ]; +% +%}; +% +%my $rights_sub = sub { +% my $access_group = shift; +% +% [ map { my $access_right = $_; +% [ +% { +% 'data' => $access_right->rightname, +% 'align' => 'left', +% }, +% ]; +% } +% $access_group->access_rights, +% +% ]; +% +%}; +% +%my $count_query = 'SELECT COUNT(*) FROM access_group'; +% +%my $link = [ $p.'edit/access_group.html?', 'groupnum' ]; +% +% +<% include( 'elements/browse.html', + 'title' => 'Internal Access Groups', + 'menubar' => [ # 'Main menu' => $p, + 'Internal users' => $p.'browse/access_user.html', + ], + 'html_init' => $html_init, + 'name' => 'internal access groups', + 'query' => { 'table' => 'access_group', + 'hashref' => {}, + 'extra_sql' => 'ORDER BY groupname', #?? + }, + 'count_query' => $count_query, + 'header' => [ '#', + 'Group name', + 'Agents', + 'Rights', + ], + 'fields' => [ 'groupnum', + 'groupname', + $agents_sub, + $rights_sub, + ], + 'links' => [ $link, + $link, + '', + '', + ], + ) +%> |