X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2Fcust_tax_exempt_pkg.pm;h=b64ef515d1acb55ff1681bb536e45316c31d46bb;hb=292ef074d01bb925e9a466ed771bf2ac418bb44f;hp=bbabb5b0a34c6c0ab2649fcb960b0a44614365af;hpb=82d8565fbeaebd69177a3a14d833685ecb86a545;p=freeside.git diff --git a/FS/FS/cust_tax_exempt_pkg.pm b/FS/FS/cust_tax_exempt_pkg.pm index bbabb5b0a..b64ef515d 100644 --- a/FS/FS/cust_tax_exempt_pkg.pm +++ b/FS/FS/cust_tax_exempt_pkg.pm @@ -1,19 +1,12 @@ package FS::cust_tax_exempt_pkg; +use base qw( FS::cust_main_Mixin FS::Record ); use strict; -use vars qw( @ISA ); -use FS::Record qw( qsearch qsearchs ); -use FS::cust_main_Mixin; -use FS::cust_bill_pkg; -use FS::cust_main_county; -use FS::cust_credit_bill_pkg; use FS::UID qw(dbh); use FS::upgrade_journal; # some kind of common ancestor with cust_bill_pkg_tax_location would make sense -@ISA = qw( FS::cust_main_Mixin FS::Record ); - =head1 NAME FS::cust_tax_exempt_pkg - Object methods for cust_tax_exempt_pkg records @@ -183,11 +176,6 @@ Otherwise returns false. =cut -sub cust_main_county { - my $self = shift; - qsearchs( 'cust_main_county', { 'taxnum', $self->taxnum } ); -} - sub _upgrade_data { my $class = shift;