diff options
| author | ivan <ivan> | 2009-06-24 01:40:12 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2009-06-24 01:40:12 +0000 |
| commit | 52feaa06fcb7a06e253adcb18d87854498ad218e (patch) | |
| tree | 8e221b3012734a1bc90dc2c40e47eca8fb8acd5f /httemplate | |
| parent | cc6072eff54dd197dacb089c248a8543b330cd1d (diff) | |
fix total links on agent-specific sales report, RT#5449
Diffstat (limited to 'httemplate')
| -rw-r--r-- | httemplate/graph/cust_bill_pkg.cgi | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/httemplate/graph/cust_bill_pkg.cgi b/httemplate/graph/cust_bill_pkg.cgi index a96eed779..b655f1f01 100644 --- a/httemplate/graph/cust_bill_pkg.cgi +++ b/httemplate/graph/cust_bill_pkg.cgi @@ -18,18 +18,19 @@ die "access denied" unless $FS::CurrentUser::CurrentUser->access_right('Financial reports'); +my $link = "${p}search/cust_bill_pkg.cgi?nottax=1;include_comp_cust=1"; +my $bottom_link = "$link;"; + #XXX or virtual my( $agentnum, $sel_agent ) = ('', ''); if ( $cgi->param('agentnum') =~ /^(\d+)$/ ) { $agentnum = $1; + $bottom_link .= "agentnum=$agentnum;"; $sel_agent = qsearchs('agent', { 'agentnum' => $agentnum } ); die "agentnum $agentnum not found!" unless $sel_agent; } my $title = $sel_agent ? $sel_agent->agent.' ' : ''; -my $link = "${p}search/cust_bill_pkg.cgi?nottax=1;include_comp_cust=1"; -my $bottom_link = "$link;"; - #classnum (here) # 0: all classes # not specified: empty class @@ -94,7 +95,6 @@ foreach my $agent ( $sel_agent || qsearch('agent', { 'disabled' => '' } ) ) { push @items, 'cust_bill_pkg'; - push @labels, ( $sel_agent ? '' : $agent->agent.' ' ). ( $classnum eq '0' |