% 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;
%once>
<%init>
die "access denied"
unless $FS::CurrentUser::CurrentUser->access_right('Configuration');
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-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{$_} }
],
).
' '. ' |