From b38fc0b849b21ed4e2a83bab885b63223914edd5 Mon Sep 17 00:00:00 2001 From: Mark Wells Date: Sun, 20 Sep 2015 10:00:37 -1000 Subject: [PATCH] fix creation of negative exemption records, #37088, from #13971 --- FS/FS/cust_tax_exempt_pkg.pm | 11 +++++++++++ 1 file changed, 11 insertions(+) diff --git a/FS/FS/cust_tax_exempt_pkg.pm b/FS/FS/cust_tax_exempt_pkg.pm index b64ef515d..5057781f4 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; -- 2.11.0