X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=FS%2FFS%2Fcust_bill_pkg_tax_rate_location.pm;h=7ae5250e9d81dbdd7f2d60118cd1f29535c7bfde;hp=3e8098c3acf513ed5cd085aac51003cac17af700;hb=ffa18709ee8a4d05e18d2d406cf73afe79e52524;hpb=32072dbf59a054529f5304574c0f56f9567d14d0 diff --git a/FS/FS/cust_bill_pkg_tax_rate_location.pm b/FS/FS/cust_bill_pkg_tax_rate_location.pm index 3e8098c3a..7ae5250e9 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