projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
4.x-style
[freeside.git]
/
FS
/
FS
/
cust_pay_refund.pm
diff --git
a/FS/FS/cust_pay_refund.pm
b/FS/FS/cust_pay_refund.pm
index
cb9dbce
..
28f757d
100644
(file)
--- a/
FS/FS/cust_pay_refund.pm
+++ b/
FS/FS/cust_pay_refund.pm
@@
-1,14
+1,9
@@
package FS::cust_pay_refund;
package FS::cust_pay_refund;
+use base qw(FS::Record);
use strict;
use strict;
-use vars qw( @ISA ); #$conf );
-use FS::UID qw( getotaker );
use FS::Record qw( qsearchs ); # qsearch );
use FS::cust_main;
use FS::Record qw( qsearchs ); # qsearch );
use FS::cust_main;
-use FS::cust_pay;
-use FS::cust_refund;
-
-@ISA = qw( FS::Record );
#ask FS::UID to run this stuff for us later
#FS::UID->install_callback( sub {
#ask FS::UID to run this stuff for us later
#FS::UID->install_callback( sub {
@@
-153,24
+148,10
@@
sub check {
Returns the payment (see L<FS::cust_pay>)
Returns the payment (see L<FS::cust_pay>)
-=cut
-
-sub cust_pay {
- my $self = shift;
- qsearchs( 'cust_pay', { 'paynum' => $self->paynum } );
-}
-
=item cust_refund
Returns the refund (see L<FS::cust_refund>)
=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 BUGS
=back
=head1 BUGS