X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=httemplate%2Fbrowse%2Fsales.html;h=47db4206e7c7aafa51f4ace189aaa1f62b169011;hb=755969fa7279b58aa965a6f488060e80ad379689;hp=1cdc4908535a95b9ed37274071806f0d7925468d;hpb=35125976b65791c4b3f88827639ff44f1b13eb17;p=freeside.git
diff --git a/httemplate/browse/sales.html b/httemplate/browse/sales.html
index 1cdc49085..47db4206e 100644
--- a/httemplate/browse/sales.html
+++ b/httemplate/browse/sales.html
@@ -14,9 +14,12 @@
<%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'] );
@@ -27,6 +30,64 @@ if ( $curuser->access_right('Configuration') ) {
push @links, [ $p.'edit/agent.cgi?', 'agentnum' ];
}
-#Sales people bring in business.
+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 $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 => 'left',
+ data => encode_entities(
+ $_ ? $_->classname : mt('(no package class)')
+ ). ': ',
+ },
+ { align => 'right',
+ data => ($sales_pkg_class->commission_percent || 0). '%',
+ },
+ { align => 'left',
+ data =>
+ $sales_pkg_class->commission_duration
+ ? ' for '. $sales_pkg_class->commission_duration. ' months'
+ : ''
+ },
+ ];
+
+ }
+ ( '', @pkg_class )
+
+ ];
+
+};
+#push @links, '';
%init>