X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=httemplate%2Fbrowse%2Fsales.html;h=6fac058f99f7c7fb7752368d7833ac31a3b418da;hp=1cdc4908535a95b9ed37274071806f0d7925468d;hb=dc797c21faf993cec12ae92c190043c4f8bb2ab2;hpb=c38cbda56530785527927471a3ecee56a71c7a13 diff --git a/httemplate/browse/sales.html b/httemplate/browse/sales.html index 1cdc49085..6fac058f9 100644 --- a/httemplate/browse/sales.html +++ b/httemplate/browse/sales.html @@ -14,9 +14,10 @@ <%init> my $curuser = $FS::CurrentUser::CurrentUser; - die "access denied" unless $curuser->access_right('Edit sales people'); +#Sales people bring in business.

+ my @header = ( 'Sales person' ); my @fields = ( 'salesperson' ); my @links = ( [$p.'edit/sales.html?', 'salesnum'] ); @@ -27,6 +28,45 @@ if ( $curuser->access_right('Configuration') ) { push @links, [ $p.'edit/agent.cgi?', 'agentnum' ]; } -#Sales people bring in business.

+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, '';