1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
|
<& 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.<BR><BR>
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
$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>
|
