use strict;
use vars qw( @ISA );
use FS::UID qw( getotaker );
-use FS::Record qw( qsearchs );
+use FS::Record qw( qsearch qsearchs );
use FS::cust_main;
use FS::cust_refund;
sub credited {
my $self = shift;
my $amount = $self->amount;
- $amount -= $_->amount() foreach ( $self->cust_refund );
+ $amount -= $_->refund foreach ( $self->cust_refund );
$amount;
}
=head1 VERSION
-$Id: cust_credit.pm,v 1.4 2001-04-23 19:21:31 ivan Exp $
+$Id: cust_credit.pm,v 1.6 2001-04-23 19:50:07 ivan Exp $
=head1 BUGS