X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=FS%2FFS%2Fcust_credit.pm;h=3f191f4e5e8ad49506e141493707e9971843da9b;hp=5888d07ef319f9b1826098c4eacabd2692c01a61;hb=779280607cab20aafd3b71d161562395e183ef76;hpb=37b880826261a0caee14508aeaafa9da28bd043a

diff --git a/FS/FS/cust_credit.pm b/FS/FS/cust_credit.pm
index 5888d07ef..3f191f4e5 100644
--- a/FS/FS/cust_credit.pm
+++ b/FS/FS/cust_credit.pm
@@ -142,7 +142,7 @@ amount minus all refunds (see L<FS::cust_refund>).
 sub credited {
   my $self = shift;
   my $amount = $self->amount;
-  $amount -= $_->refund foreach ( $self->cust_refund );
+  $amount -= $_->amount() foreach ( $self->cust_refund );
   $amount;
 }
 
@@ -150,7 +150,7 @@ sub credited {
 
 =head1 VERSION
 
-$Id: cust_credit.pm,v 1.3 2001-04-09 23:05:15 ivan Exp $
+$Id: cust_credit.pm,v 1.4 2001-04-23 19:21:31 ivan Exp $
 
 =head1 BUGS