summaryrefslogtreecommitdiff
path: root/httemplate/browse/access_group.html
diff options
context:
space:
mode:
Diffstat (limited to 'httemplate/browse/access_group.html')
-rw-r--r--httemplate/browse/access_group.html108
1 files changed, 0 insertions, 108 deletions
diff --git a/httemplate/browse/access_group.html b/httemplate/browse/access_group.html
deleted file mode 100644
index 736ab9c62..000000000
--- a/httemplate/browse/access_group.html
+++ /dev/null
@@ -1,108 +0,0 @@
-<% include( 'elements/browse.html',
- 'title' => 'Internal Access Groups',
- 'menubar' => [ '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,
- '',
- '',
- ],
- )
-%>
-<%once>
-
-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,
-
- ];
-
-};
-
-tie my %rights, 'Tie::IxHash', FS::AccessRight->rights_info;
-
-my $rights_sub = sub {
- my $access_group = shift;
-
- #[ map { my $access_right = $_;
- # [
- # {
- # 'data' => $access_right->rightname,
- # 'align' => 'left',
- # },
- # ];
- # }
- # $access_group->access_rights,
- #];
-
- #some false laziness w/edit/access_group.html
- my $columns = 3;
- my $count = 0;
-
- #include('/elements/table-grid.html', bgcolor=>'#cccccc' ).
- '<TABLE>'.
- '<TR>'. join( '', map {
-
- '<TD CLASS="inv" VALIGN="top"><TABLE WIDTH=100%>'.
- '<TR><TH BGCOLOR="#dcdcdc">'. $_. '</TH></TR>'.
- '<TR><TD>'.
-
- join('<BR>', grep { warn "$access_group->access_right($_): ".
- $access_group->access_right($_). "\n";
- $access_group->access_right($_); }
- map { ref($_) ? $_->{'rightname'} : $_; }
- @{ $rights{$_} }
- ).
-
- '</TD></TR></TABLE></TD>'.
- ( ++$count % $columns ? '' : '</TR><TR>')
-
- } keys %rights ). '</TR></TABLE>';
-
-};
-
-my $count_query = 'SELECT COUNT(*) FROM access_group';
-
-my $link = [ $p.'edit/access_group.html?', 'groupnum' ];
-
-</%once>
-<%init>
-
-die "access denied"
- unless $FS::CurrentUser::CurrentUser->access_right('Configuration');
-
-</%init>