From 817c1ce0e1cbcfd1f684222c66f46dd13b2d6dd7 Mon Sep 17 00:00:00 2001 From: Mark Wells Date: Sat, 30 May 2015 15:12:07 -0700 Subject: SureTax, #31639, #33015, #34598 --- FS/FS/cust_bill_pkg_tax_rate_location.pm | 14 ++++++++++++++ 1 file changed, 14 insertions(+) (limited to 'FS/FS/cust_bill_pkg_tax_rate_location.pm') diff --git a/FS/FS/cust_bill_pkg_tax_rate_location.pm b/FS/FS/cust_bill_pkg_tax_rate_location.pm index 3e8098c..7ae5250 100644 --- a/FS/FS/cust_bill_pkg_tax_rate_location.pm +++ b/FS/FS/cust_bill_pkg_tax_rate_location.pm @@ -6,6 +6,7 @@ use FS::Record qw( qsearch qsearchs ); use FS::cust_pkg; use FS::cust_bill_pay_pkg; use FS::cust_credit_bill_pkg; +use FS::tax_rate; =head1 NAME @@ -130,6 +131,19 @@ Returns the associated cust_bill_pkg object Returns the associated tax_rate_location object +=item taxname + +Returns the tax name (the itemdesc). + +=cut + +sub taxname { + my $self = shift; + my $tax_rate = FS::tax_rate->by_key($self->taxnum) + or return ''; + $tax_rate->taxname; +} + =item desc Returns a description for this tax line item constituent. Currently this -- cgit v1.1