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=39b2bb95a09ee935d3999c2a67e225ddb068b44c;hb=ffa18709ee8a4d05e18d2d406cf73afe79e52524;hpb=fb4ab1073f0d15d660c6cdc4e07afebf68ef3924 diff --git a/FS/FS/cust_bill_pkg_tax_rate_location.pm b/FS/FS/cust_bill_pkg_tax_rate_location.pm index 39b2bb95a..7ae5250e9 100644 --- a/FS/FS/cust_bill_pkg_tax_rate_location.pm +++ b/FS/FS/cust_bill_pkg_tax_rate_location.pm @@ -1,13 +1,12 @@ package FS::cust_bill_pkg_tax_rate_location; +use base qw( FS::Record ); use strict; -use base qw( FS::Record ); use FS::Record qw( qsearch qsearchs ); -use FS::cust_bill_pkg; use FS::cust_pkg; -use FS::tax_rate_location; use FS::cust_bill_pay_pkg; use FS::cust_credit_bill_pkg; +use FS::tax_rate; =head1 NAME @@ -128,24 +127,21 @@ sub check { Returns the associated cust_bill_pkg object -=cut - -sub cust_bill_pkg { - my $self = shift; - qsearchs( 'cust_bill_pkg', { 'billpkgnum' => $self->billpkgnum } ); -} - =item tax_rate_location Returns the associated tax_rate_location object +=item taxname + +Returns the tax name (the itemdesc). + =cut -sub tax_rate_location { +sub taxname { my $self = shift; - qsearchs( 'tax_rate_location', - { 'taxratelocationnum' => $self->taxratelocationnum } - ); + my $tax_rate = FS::tax_rate->by_key($self->taxnum) + or return ''; + $tax_rate->taxname; } =item desc