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::cust_main_county;
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
=cut
+# do not remove; this can't be autogenerated
+
sub cust_main_county {
my $self = shift;
- qsearchs( 'cust_main_county', { 'taxnum', $self->taxnum } );
+ if ( $self->taxtype eq 'FS::cust_main_county' ) {
+ return FS::cust_main_county->by_key($self->taxnum);
+ }
+ '';
}
sub _upgrade_data {