From 4dba303c1989638060b9c76941f5e72fd35c4dd5 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Mon, 23 Apr 2001 19:27:28 +0000
Subject: [PATCH] *sigh*

---
 FS/FS/cust_credit.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/FS/FS/cust_credit.pm b/FS/FS/cust_credit.pm
index 3f191f4e5..cc1ac395d 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 -= $_->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.5 2001-04-23 19:27:28 ivan Exp $
 
 =head1 BUGS
 
-- 
2.11.0