diff options
author | Mark Wells <mark@freeside.biz> | 2015-03-19 13:43:34 -0700 |
---|---|---|
committer | Mark Wells <mark@freeside.biz> | 2015-03-19 13:43:34 -0700 |
commit | e18263db61c9695eb4c139f23c79730fd7659ad6 (patch) | |
tree | 04947f96c8709dbce3e136622c6c36223f3bd194 /FS/FS/cust_bill_pkg.pm | |
parent | 5886bd773a3c1fe43abcde0beafb7fb5e1991388 (diff) |
correctly void invoices with fees, #32862
Diffstat (limited to 'FS/FS/cust_bill_pkg.pm')
-rw-r--r-- | FS/FS/cust_bill_pkg.pm | 23 |
1 files changed, 3 insertions, 20 deletions
diff --git a/FS/FS/cust_bill_pkg.pm b/FS/FS/cust_bill_pkg.pm index 9b9cf925e..7257a9bb8 100644 --- a/FS/FS/cust_bill_pkg.pm +++ b/FS/FS/cust_bill_pkg.pm @@ -25,6 +25,7 @@ use FS::cust_bill_pkg_discount_void; use FS::cust_bill_pkg_tax_location_void; use FS::cust_bill_pkg_tax_rate_location_void; use FS::cust_tax_exempt_pkg_void; +use FS::cust_bill_pkg_fee_void; use FS::Cursor; @@ -358,6 +359,7 @@ sub void { cust_bill_pkg_tax_location cust_bill_pkg_tax_rate_location cust_tax_exempt_pkg + cust_bill_pkg_fee )) { foreach my $linked ( qsearch($table, { billpkgnum=>$self->billpkgnum }) ) { @@ -417,6 +419,7 @@ sub delete { cust_tax_exempt_pkg cust_bill_pay_pkg cust_credit_bill_pkg + cust_bill_pkg_fee )) { foreach my $linked ( qsearch($table, { billpkgnum=>$self->billpkgnum }) ) { @@ -1026,26 +1029,6 @@ sub tax_location { } } -=item part_X - -Returns the L<FS::part_pkg> or L<FS::part_fee> object that defines this -charge. If called on a tax line, returns nothing. - -=cut - -sub part_X { - my $self = shift; - if ( $self->pkgpart_override ) { - return FS::part_pkg->by_key($self->pkgpart_override); - } elsif ( $self->pkgnum ) { - return $self->cust_pkg->part_pkg; - } elsif ( $self->feepart ) { - return $self->part_fee; - } else { - return; - } -} - =back =head1 CLASS METHODS |