<% include( 'elements/edit.html', 'name' => 'Employee Group', 'table' => 'access_group', 'labels' => { 'groupnum' => 'Group number', 'groupname' => 'Group name', }, 'viewall_dir' => 'browse', 'html_bottom' => $html_bottom_sub, ) %> <%once> tie my %rights, 'Tie::IxHash', FS::AccessRight->rights_info; <%init> my $html_bottom_sub = sub { my $access_group = shift; #some false laziness w/browse/access_group.html my $columns = 3; my $count = 0; '
'. 'Group limited to these agent(s)
'. 'Employees in this group will only see customers of the selected agents in the system and reports.
'. ntable("#cccccc",2). ''. include( '/elements/checkboxes-table.html', 'source_obj' => $access_group, 'link_table' => 'access_groupagent', 'target_table' => 'agent', 'name_col' => 'agent', 'target_link' => $p.'edit/agent.cgi?', 'disable-able' => 1, ). ''. '
Group access rights
'. include('/elements/table-grid.html', bgcolor=>'#cccccc' ). ''. join( '', map { ''. ''. '
'. $_. '
'. include( '/elements/checkboxes-table-name.html', 'source_obj' => $access_group, 'link_table' => 'access_right', 'link_static' => { 'righttype' => 'FS::access_group', }, 'num_col' => 'rightobjnum', 'name_col' => 'rightname', 'names_list' => [ map { my $rn = ref($_) ? $_->{'rightname'} : $_; my %hash = (); $hash{'note'} = ' *' if ref($_) && $_->{'global'}; $hash{'desc'} = $_->{'desc'} if ref($_) && $_->{'desc'}; [ $rn => \%hash ]; } @{ $rights{$_} } ], ). '
'. '
'. ( ++$count % $columns ? '' : '') } keys %rights ). ''. '* Global rights. These rights provide access to global data which is shared among all agents. Their use is not recommended for groups which are limited to a subset of agents.
'; };