From 5b87686b7a7f09e766bb1749628365b81f4f72fc Mon Sep 17 00:00:00 2001
From: jeff <jeff>
Date: Mon, 21 Dec 2009 14:44:09 +0000
Subject: manage tax exemptions (texas-tax) on credit application RT953

---
 FS/FS/cust_bill_pkg_tax_location.pm | 12 ++++++++++++
 1 file changed, 12 insertions(+)

(limited to 'FS/FS/cust_bill_pkg_tax_location.pm')

diff --git a/FS/FS/cust_bill_pkg_tax_location.pm b/FS/FS/cust_bill_pkg_tax_location.pm
index 120a2d0..44dd6e3 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,21 @@ sub cust_credit_bill_pkg {
          );
 }
 
+sub cust_main_county {
+  my $self = shift;
+  my $result;
+  if ( $self->taxtype eq 'FS::cust_main_county' ) {
+    $result = 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.
-- 
cgit v1.1