From f50a821d306b561d602edbdac0dac958b862ec0c Mon Sep 17 00:00:00 2001 From: Ivan Kohler Date: Thu, 27 Sep 2012 20:25:27 -0700 Subject: [PATCH] tax debugging --- FS/FS/cust_main/Billing.pm | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) 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 -- 2.11.0