diff options
| author | ivan <ivan> | 2001-04-23 19:27:28 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2001-04-23 19:27:28 +0000 |
| commit | 4dba303c1989638060b9c76941f5e72fd35c4dd5 (patch) | |
| tree | 71e11fd809246468749f1f929941bae607c0d6ca | |
| parent | 779280607cab20aafd3b71d161562395e183ef76 (diff) | |
*sigh*
| -rw-r--r-- | FS/FS/cust_credit.pm | 4 |
1 files 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 |