diff options
author | ivan <ivan> | 2001-09-02 01:27:11 +0000 |
---|---|---|
committer | ivan <ivan> | 2001-09-02 01:27:11 +0000 |
commit | 51e148d543a59a3cdec24bfb5ffb839ee7b4ac72 (patch) | |
tree | 49ef3d509b0af99b7daaa6668d31b2e2065045f6 /FS/FS/cust_credit_refund.pm | |
parent | 98ddc878969bb39e576e3bd316f96ff7eeedb750 (diff) |
more udpates for the new world of unapplied stuff. yay.
Diffstat (limited to 'FS/FS/cust_credit_refund.pm')
-rw-r--r-- | FS/FS/cust_credit_refund.pm | 19 |
1 files changed, 17 insertions, 2 deletions
diff --git a/FS/FS/cust_credit_refund.pm b/FS/FS/cust_credit_refund.pm index f366eb147..200e34e55 100644 --- a/FS/FS/cust_credit_refund.pm +++ b/FS/FS/cust_credit_refund.pm @@ -4,7 +4,8 @@ use strict; use vars qw( @ISA ); use FS::Record qw( qsearch qsearchs dbh ); #use FS::UID qw(getotaker); -#use FS::cust_credit +use FS::cust_credit; +use FS::cust_refund; @ISA = qw( FS::Record ); @@ -154,16 +155,30 @@ sub check { ''; #no error } +=item cust_refund + +Returns the refund (see L<FS::cust_refund>) + +=cut + +sub cust_refund { + my $self = shift; + qsearchs( 'cust_refund', { 'refundnum' => $self->refundnum } ); +} + =back =head1 VERSION -$Id: cust_credit_refund.pm,v 1.1 2001-09-01 20:11:07 ivan Exp $ +$Id: cust_credit_refund.pm,v 1.2 2001-09-02 01:27:11 ivan Exp $ =head1 BUGS Delete and replace methods. +the checks for over-applied refunds could be better done like the ones in +cust_bill_credit + =head1 SEE ALSO L<FS::cust_credit>, L<FS::cust_refund>, L<FS::Record>, schema.html from the |