diff options
| -rw-r--r-- | FS/FS/FeeOrigin_Mixin.pm | 8 | ||||
| -rw-r--r-- | FS/FS/cust_pkg.pm | 2 | ||||
| -rw-r--r-- | FS/FS/cust_pkg_reason_fee.pm | 6 |
3 files changed, 2 insertions, 14 deletions
diff --git a/FS/FS/FeeOrigin_Mixin.pm b/FS/FS/FeeOrigin_Mixin.pm index 4eaf9b8..8bd9acd 100644 --- a/FS/FS/FeeOrigin_Mixin.pm +++ b/FS/FS/FeeOrigin_Mixin.pm @@ -110,13 +110,7 @@ sub cust_bill { '' } sub cust_pkg { '' } -# stubs; remove in 4.x - -sub part_fee { - my $self = shift; - FS::part_fee->by_key($self->feepart); -} - +# still necessary in 4.x; can't FK the billpkgnum because of voids sub cust_bill_pkg { my $self = shift; $self->billpkgnum ? FS::cust_bill_pkg->by_key($self->billpkgnum) : ''; diff --git a/FS/FS/cust_pkg.pm b/FS/FS/cust_pkg.pm index 4def528..be5bdea 100644 --- a/FS/FS/cust_pkg.pm +++ b/FS/FS/cust_pkg.pm @@ -1750,7 +1750,7 @@ sub unsuspend { if ( $reason ) { if ( $reason->unsuspend_pkgpart ) { - #warn "Suspend reason '".$reason->reason."' uses deprecated unsuspend_pkgpart feature.\n"; # in 4.x + warn "Suspend reason '".$reason->reason."' uses deprecated unsuspend_pkgpart feature.\n"; my $part_pkg = FS::part_pkg->by_key($reason->unsuspend_pkgpart) or $error = "Unsuspend package definition ".$reason->unsuspend_pkgpart. " not found."; diff --git a/FS/FS/cust_pkg_reason_fee.pm b/FS/FS/cust_pkg_reason_fee.pm index e5cc829..1155c15 100644 --- a/FS/FS/cust_pkg_reason_fee.pm +++ b/FS/FS/cust_pkg_reason_fee.pm @@ -142,12 +142,6 @@ sub cust_pkg { $self->cust_pkg_reason->cust_pkg; } -#stub - remove in 4.x -sub cust_pkg_reason { - my $self = shift; - FS::cust_pkg_reason->by_key($self->pkgreasonnum); -} - =head1 SEE ALSO L<FS::FeeOrigin_Mixin>, L<FS::cust_pkg_reason>, L<part_fee> |