diff options
Diffstat (limited to 'FS/FS/cust_bill_pay_pkg.pm')
-rw-r--r-- | FS/FS/cust_bill_pay_pkg.pm | 21 |
1 files changed, 1 insertions, 20 deletions
diff --git a/FS/FS/cust_bill_pay_pkg.pm b/FS/FS/cust_bill_pay_pkg.pm index eb2e80c78..0a17469e5 100644 --- a/FS/FS/cust_bill_pay_pkg.pm +++ b/FS/FS/cust_bill_pay_pkg.pm @@ -1,13 +1,8 @@ package FS::cust_bill_pay_pkg; +use base qw( FS::Record ); use strict; -use vars qw( @ISA ); use FS::Conf; -use FS::Record qw( qsearch qsearchs ); -use FS::cust_bill_pay; -use FS::cust_bill_pkg; - -@ISA = qw(FS::Record); =head1 NAME @@ -171,24 +166,10 @@ sub check { Returns the FS::cust_bill_pay object (payment application to the overall invoice). -=cut - -sub cust_bill_pay { - my $self = shift; - qsearchs('cust_bill_pay', { 'billpaynum' => $self->billpaynum } ); -} - =item cust_bill_pkg Returns the FS::cust_bill_pkg object (line item to which payment is applied). -=cut - -sub cust_bill_pkg { - my $self = shift; - qsearchs('cust_bill_pkg', { 'billpkgnum' => $self->billpkgnum } ); -} - =item send_receipt Sends a payment receipt for the associated payment, against this specific |