;
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;
return "unknown cust_credit.crednum: ". $self->crednum
unless qsearchs( 'cust_credit', { 'crednum' => $self->crednum } );
- ''; #no error
+ $self->SUPER::check;
}
=item cust_refund
=cut
-sub cust_refund {
+sub cust_credit {
my $self = shift;
qsearchs( 'cust_credit', { 'crednum' => $self->crednum } );
}
=head1 VERSION
-$Id: cust_credit_refund.pm,v 1.7 2002-01-24 16:54:53 ivan Exp $
+$Id: cust_credit_refund.pm,v 1.10 2003-08-05 00:20:41 khoff Exp $
=head1 BUGS