<& elements/browse.html,
'title' => 'Sales People',
'name_singular' => 'sales person',
'menubar' => ['Add a new sales person' => $p.'edit/sales.html'],
'query' => { 'table' => 'sales' },
'count_query' => 'SELECT COUNT(*) FROM sales',
'header' => \@header,
'fields' => \@fields,
'links' => \@links,
'disableable' => 1,
'disabled_statuspos' => 1,
'agent_virt' => 1,
&>
<%init>
my $curuser = $FS::CurrentUser::CurrentUser;
die "access denied" unless $curuser->access_right('Edit sales people');
my $conf = new FS::Conf;
#Sales people bring in business.
my @header = ( 'Sales person' );
my @fields = ( 'salesperson' );
my @links = ( [$p.'edit/sales.html?', 'salesnum'] );
if ( $curuser->access_right('Configuration') ) {
push @header, 'Agent';
push @fields, 'agent_name';
push @links, [ $p.'edit/agent.cgi?', 'agentnum' ];
}
push @header, 'Master Customer';
push @fields, sub {
my $sales = shift;
return '' unless $sales->sales_custnum;
include('/elements/small_custview.html',
$sales->sales_custnum,
scalar($conf->config('countrydefault')),
1, #show balance
);
};
push @links, '';
push @header, 'Commissions';
push @fields, sub {
my $sales = shift;
#started out as false laziness w/browse/agent.cgi
# (which said surprising amount of false laziness w/ edit/process/agent.cgi)
# but this now returns an edit.html data structure that renders to a table
# instead of HTML
my @pkg_class = qsearch('pkg_class', { 'disabled'=>'' });
[
map {
my %sales_pkg_class = ( 'salesnum' => $sales->salesnum,
'classnum' => $_ ? $_->classnum : ''
);
my $sales_pkg_class =
qsearchs( 'sales_pkg_class', \%sales_pkg_class )
|| new FS::sales_pkg_class \%sales_pkg_class;
#my $param = 'classnum'. $sales_pkg_class{classnum};
[
{ align => 'right',
data => ($sales_pkg_class->commission_percent || 0). '%',
},
{ align => 'left',
data => ' '. encode_entities(
$_ ? $_->classname : mt('(no package class)')
),
},
];
}
( '', @pkg_class )
];
};
#push @links, '';