1 <& elements/browse.html,
2 'title' => 'Sales People',
3 'name_singular' => 'sales person',
4 'menubar' => ['Add a new sales person' => $p.'edit/sales.html'],
5 'query' => { 'table' => 'sales' },
6 'count_query' => 'SELECT COUNT(*) FROM sales',
11 'disabled_statuspos' => 1,
16 my $curuser = $FS::CurrentUser::CurrentUser;
17 die "access denied" unless $curuser->access_right('Edit sales people');
19 #Sales people bring in business.<BR><BR>
21 my @header = ( 'Sales person' );
22 my @fields = ( 'salesperson' );
23 my @links = ( [$p.'edit/sales.html?', 'salesnum'] );
25 if ( $curuser->access_right('Configuration') ) {
26 push @header, 'Agent';
27 push @fields, 'agent_name';
28 push @links, [ $p.'edit/agent.cgi?', 'agentnum' ];
31 push @header, 'Commissions';
36 #started out as false laziness w/browse/agent.cgi
37 # (which said surprising amount of false laziness w/ edit/process/agent.cgi)
38 # but this now returns an edit.html data structure that renders to a table
41 my @pkg_class = qsearch('pkg_class', { 'disabled'=>'' });
45 my %sales_pkg_class = ( 'salesnum' => $sales->salesnum,
46 'classnum' => $_ ? $_->classnum : ''
49 qsearchs( 'sales_pkg_class', \%sales_pkg_class )
50 || new FS::sales_pkg_class \%sales_pkg_class;
51 #my $param = 'classnum'. $sales_pkg_class{classnum};
55 data => ($sales_pkg_class->commission_percent || 0). '%',
58 data => ' '. encode_entities(
59 $_ ? $_->classname : mt('(no package class)')