X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2Fcust_pay_refund.pm;h=15e0e533ac0ef3570b250ecf5036e48ffc33929c;hb=673b9a458d9138523026963df6fa3b4683e09bae;hp=af25f177402f38f9766783fec9aadfda53400e49;hpb=2041a9143fac20b79ead4a1ae01224dedf5b27c2;p=freeside.git diff --git a/FS/FS/cust_pay_refund.pm b/FS/FS/cust_pay_refund.pm index af25f1774..15e0e533a 100644 --- a/FS/FS/cust_pay_refund.pm +++ b/FS/FS/cust_pay_refund.pm @@ -138,26 +138,26 @@ sub check { $self->SUPER::check; } -=item sub cust_credit +=item sub cust_pay -Returns the credit (see L) +Returns the payment (see L) =cut -sub cust_credit { +sub cust_pay { my $self = shift; - qsearchs( 'cust_credit', { 'crednum' => $self->crednum } ); + qsearchs( 'cust_pay', { 'paynum' => $self->paynum } ); } -=item cust_bill +=item cust_refund -Returns the invoice (see L) +Returns the refund (see L) =cut -sub cust_bill { +sub cust_refund { my $self = shift; - qsearchs( 'cust_bill', { 'invnum' => $self->invnum } ); + qsearchs( 'cust_refund', { 'refundnum' => $self->refundnum } ); } =back