X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2Fcust_bill_pkg_tax_location.pm;h=cb8b34bb3ad6323e85c61d74a2db571af0d0571f;hb=03e6fde56b0de69323dcac62d5feb353ef98962e;hp=120a2d036a0886c7919eeb2714d5c03cd3332ddd;hpb=fafdaeca1af0771cefd8f6707b0f75ee8a33f03a;p=freeside.git

diff --git a/FS/FS/cust_bill_pkg_tax_location.pm b/FS/FS/cust_bill_pkg_tax_location.pm
index 120a2d036..cb8b34bb3 100644
--- a/FS/FS/cust_bill_pkg_tax_location.pm
+++ b/FS/FS/cust_bill_pkg_tax_location.pm
@@ -8,6 +8,7 @@ use FS::cust_pkg;
 use FS::cust_location;
 use FS::cust_bill_pay_pkg;
 use FS::cust_credit_bill_pkg;
+use FS::cust_main_county;
 
 =head1 NAME
 
@@ -199,10 +200,19 @@ sub cust_credit_bill_pkg {
          );
 }
 
+sub cust_main_county {
+  my $self = shift;
+  return '' unless $self->taxtype eq 'FS::cust_main_county';
+  qsearchs( 'cust_main_county', { 'taxnum' => $self->taxnum } );
+}
+
 =back
 
 =head1 BUGS
 
+The presense of FS::cust_main_county::delete makes the cust_main_county method
+unreliable
+
 =head1 SEE ALSO
 
 L<FS::Record>, schema.html from the base documentation.