diff options
| author | Ivan Kohler <ivan@freeside.biz> | 2012-09-27 20:25:27 -0700 |
|---|---|---|
| committer | Ivan Kohler <ivan@freeside.biz> | 2012-09-27 20:25:27 -0700 |
| commit | f50a821d306b561d602edbdac0dac958b862ec0c (patch) | |
| tree | bd9b327789f455c3c07bb2cc0944c9ccb08eec1a /FS/FS | |
| parent | 10370b0320f56af88c90e572644e91332815100f (diff) | |
tax debugging
Diffstat (limited to 'FS/FS')
| -rw-r--r-- | FS/FS/cust_main/Billing.pm | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/FS/FS/cust_main/Billing.pm b/FS/FS/cust_main/Billing.pm index bab94c31d..85cafd62c 100644 --- a/FS/FS/cust_main/Billing.pm +++ b/FS/FS/cust_main/Billing.pm @@ -1227,6 +1227,8 @@ sub _handle_taxes { $taxhash{'taxclass'} = $part_pkg->taxclass; + warn "taxhash:\n". Dumper(\%taxhash) if $DEBUG > 2; + my @taxes = (); # entries are cust_main_county objects my %taxhash_elim = %taxhash; my @elim = qw( district city county state ); @@ -1246,10 +1248,12 @@ sub _handle_taxes { } while ( !scalar(@taxes) && scalar(@elim) ); - @taxes = grep { ! $_->taxname or ! $self->tax_exemption($_->taxname) } + @taxes = grep { ! $_->taxname || ! $self->tax_exemption($_->taxname) } @taxes if $self->cust_main_exemption; #just to be safe + warn "using taxes:\n". Dumper(@taxes) if $DEBUG > 2; + # all packages now have a locationnum and should get a # cust_bill_pkg_tax_location record. The tax_locationnum # may be the package's locationnum, or the customer's bill |