diff options
author | ivan <ivan> | 2002-01-24 11:43:39 +0000 |
---|---|---|
committer | ivan <ivan> | 2002-01-24 11:43:39 +0000 |
commit | 9bf94801a1dd34dadf2862b52886e1257995ef08 (patch) | |
tree | 01f0a6d25768aa6907c3f7f8b43032b2cba8de4b /FS/FS/cust_credit_refund.pm | |
parent | 254ccae67eb65fe7d9320c121e76c447b937abd9 (diff) |
<rluser> and it seems that cust_credit_refund::cust_credit should exist..
Diffstat (limited to 'FS/FS/cust_credit_refund.pm')
-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 |