use Apache inside an eval BLOCK was mucking things up for the non-mod_perl folks

[freeside.git] / FS / FS / cust_credit.pm

diff --git a/FS/FS/cust_credit.pm b/FS/FS/cust_credit.pm
index 3f191f4..7e55dca 100644 (file)
--- a/FS/FS/cust_credit.pm
+++ b/FS/FS/cust_credit.pm
@@ -3,7 +3,7 @@ package FS::cust_credit;
 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;
 
@@ -142,7 +142,7 @@ amount minus all refunds (see L<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;
 }
 
@@ -150,7 +150,7 @@ sub credited {
 
 =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