sub credited {
my $self = shift;
my $amount = $self->amount;
- $amount -= $_->refund foreach ( $self->cust_refund );
+ $amount -= $_->amount() foreach ( $self->cust_refund );
$amount;
}
=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