diff options
author | ivan <ivan> | 2004-11-09 07:23:09 +0000 |
---|---|---|
committer | ivan <ivan> | 2004-11-09 07:23:09 +0000 |
commit | 743a09e78017b7b03ed79dccb54accfa1b26c95f (patch) | |
tree | 507bf9b8b6f4b22a5928a307621e2f7fc8e540b6 /httemplate | |
parent | fe39cd452b9763064e270fce2cbe5b73b5585568 (diff) |
fixes to run under the mason strictness
Diffstat (limited to 'httemplate')
-rwxr-xr-x | httemplate/search/report_tax.cgi | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/httemplate/search/report_tax.cgi b/httemplate/search/report_tax.cgi index aa9ed6f11..e3d203eb3 100755 --- a/httemplate/search/report_tax.cgi +++ b/httemplate/search/report_tax.cgi @@ -42,7 +42,7 @@ my $gotcust = " ) "; -my($total, $exempt, $taxable, $tax) = ( 0, 0, 0, 0 ); +my($total, $exempt, $taxable, $owed, $tax) = ( 0, 0, 0, 0, 0 ); my $out = 'Out of taxable region(s)'; my %regions; foreach my $r (qsearch('cust_main_county', {}, '', $gotcust) ) { @@ -153,7 +153,11 @@ push @regions, { sub getlabel { my $r = shift; + + my $label; if ( $r->tax == 0 ) { + #kludge to avoid "will not stay shared" warning + my $out = 'Out of taxable region(s)'; $label = $out; } elsif ( $r->taxname ) { $label = $r->taxname; |