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) : '';
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.";
$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>