;
return $error if $error;
- return "amount must be > 0" if $self->amount == 0;
+ return "amount must be > 0" if $self->amount <= 0;
$self->_date(time) unless $self->_date;
=cut
-sub cust_refund {
+sub cust_credit {
my $self = shift;
qsearchs( 'cust_credit', { 'crednum' => $self->crednum } );
}
=back
-=head1 VERSION
-
-$Id: cust_credit_refund.pm,v 1.7 2002-01-24 16:54:53 ivan Exp $
-
=head1 BUGS
Delete and replace methods.