diff options
| author | ivan <ivan> | 2001-04-23 19:21:31 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2001-04-23 19:21:31 +0000 |
| commit | 779280607cab20aafd3b71d161562395e183ef76 (patch) | |
| tree | 00c4ebd333446f3cb0361815a7d51603bcabd0bb | |
| parent | 37b880826261a0caee14508aeaafa9da28bd043a (diff) | |
webdemo bugfix
| -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 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 |