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.<BR><BR>
my @header = ( 'Sales person' );
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
+ $p.'view/cust_main.cgi',
+ );
+};
+push @links, '';
+
push @header, 'Commissions';
push @fields, sub {
#my $param = 'classnum'. $sales_pkg_class{classnum};
[
+ { align => 'left',
+ data => encode_entities(
+ $_ ? $_->classname : mt('(no package class)')
+ ). ': ',
+ },
{ align => 'right',
data => ($sales_pkg_class->commission_percent || 0). '%',
},
{ align => 'left',
- data => ' '. encode_entities(
- $_ ? $_->classname : mt('(no package class)')
- ),
+ data =>
+ $sales_pkg_class->commission_duration
+ ? ' for '. $sales_pkg_class->commission_duration. ' months'
+ : ''
},
];