diff options
| -rw-r--r-- | FS/FS/cust_credit_refund.pm | 14 |
1 files changed, 13 insertions, 1 deletions
diff --git a/FS/FS/cust_credit_refund.pm b/FS/FS/cust_credit_refund.pm index fb09a42d8..cf16284bc 100644 --- a/FS/FS/cust_credit_refund.pm +++ b/FS/FS/cust_credit_refund.pm @@ -168,11 +168,23 @@ sub cust_refund { qsearchs( 'cust_refund', { 'refundnum' => $self->refundnum } ); } +=item cust_credit + +Returns the credit (see L<FS::cust_credit>) + +=cut + +sub cust_refund { + my $self = shift; + qsearchs( 'cust_credit', { 'crednum' => $self->crednum } ); +} + + =back =head1 VERSION -$Id: cust_credit_refund.pm,v 1.4 2001-09-02 07:49:52 ivan Exp $ +$Id: cust_credit_refund.pm,v 1.5 2002-01-24 11:43:39 ivan Exp $ =head1 BUGS |