projects
/
freeside.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
10370b0
)
tax debugging
author
Ivan Kohler
<ivan@freeside.biz>
Fri, 28 Sep 2012 03:25:27 +0000
(20:25 -0700)
committer
Ivan Kohler
<ivan@freeside.biz>
Fri, 28 Sep 2012 03:25:27 +0000
(20:25 -0700)
FS/FS/cust_main/Billing.pm
patch
|
blob
|
history
diff --git
a/FS/FS/cust_main/Billing.pm
b/FS/FS/cust_main/Billing.pm
index
bab94c3
..
85cafd6
100644
(file)
--- 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;
$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 );
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) );
} 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
@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
# 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