diff options
author | Mark Wells <mark@freeside.biz> | 2015-09-20 10:00:37 -1000 |
---|---|---|
committer | Mark Wells <mark@freeside.biz> | 2015-09-20 10:00:47 -1000 |
commit | 7d6a4045a2d2ebdb0e78bf807ed77138b7a90b04 (patch) | |
tree | a16c203859dcd4b93bdc50d63b7718d8cab8e309 /FS/FS/cust_tax_exempt_pkg.pm | |
parent | 3c4a08c4f38f0e543ada298211cd6b629fdb7282 (diff) |
fix creation of negative exemption records, #37088, from #13971
Diffstat (limited to 'FS/FS/cust_tax_exempt_pkg.pm')
-rw-r--r-- | FS/FS/cust_tax_exempt_pkg.pm | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/FS/FS/cust_tax_exempt_pkg.pm b/FS/FS/cust_tax_exempt_pkg.pm index b64ef51..5057781 100644 --- a/FS/FS/cust_tax_exempt_pkg.pm +++ b/FS/FS/cust_tax_exempt_pkg.pm @@ -3,6 +3,7 @@ use base qw( FS::cust_main_Mixin FS::Record ); use strict; use FS::UID qw(dbh); +use FS::cust_main_county; use FS::upgrade_journal; # some kind of common ancestor with cust_bill_pkg_tax_location would make sense @@ -176,6 +177,16 @@ Otherwise returns false. =cut +# do not remove; this can't be autogenerated + +sub cust_main_county { + my $self = shift; + if ( $self->taxtype eq 'FS::cust_main_county' ) { + return FS::cust_main_county->by_key($self->taxnum); + } + ''; +} + sub _upgrade_data { my $class = shift; |