diff options
| author | Mark Wells <mark@freeside.biz> | 2013-08-24 15:43:08 -0700 |
|---|---|---|
| committer | Mark Wells <mark@freeside.biz> | 2013-08-24 15:43:08 -0700 |
| commit | 60724f233fbeb9388f4b2cbb68a4e6297c2b2118 (patch) | |
| tree | 1388b01758c47e914db4056e8d35997861a041ae /FS/FS/tax_rate.pm | |
| parent | 23f2db6452f097640447b9b35dd106f408dbc20b (diff) | |
CCH taxes with new customer locations, #21485
Diffstat (limited to 'FS/FS/tax_rate.pm')
| -rw-r--r-- | FS/FS/tax_rate.pm | 13 |
1 files changed, 6 insertions, 7 deletions
diff --git a/FS/FS/tax_rate.pm b/FS/FS/tax_rate.pm index 342c7cb..095939f 100644 --- a/FS/FS/tax_rate.pm +++ b/FS/FS/tax_rate.pm @@ -514,10 +514,10 @@ sub _fatal_or_null { } } -=item tax_on_tax CUST_MAIN +=item tax_on_tax CUST_LOCATION Returns a list of taxes which are candidates for taxing taxes for the -given customer (see L<FS::cust_main>) +given service location (see L<FS::cust_location>) =cut @@ -525,13 +525,13 @@ given customer (see L<FS::cust_main>) sub tax_on_tax { #akshun my $self = shift; - my $cust_main = shift; + my $cust_location = shift; warn "looking up taxes on tax ". $self->taxnum. " for customer ". - $cust_main->custnum + $cust_location->custnum if $DEBUG; - my $geocode = $cust_main->geocode($self->data_vendor); + my $geocode = $cust_location->geocode($self->data_vendor); # CCH oddness in m2m my $dbh = dbh; @@ -2120,8 +2120,7 @@ EOF =head1 SEE ALSO -L<FS::Record>, L<FS::cust_main>, L<FS::cust_bill>, schema.html from the base -documentation. +L<FS::Record>, L<FS::cust_location>, L<FS::cust_bill> =cut |