diff options
Diffstat (limited to 'FS')
| -rw-r--r-- | FS/FS/cust_bill_pay.pm | 5 | ||||
| -rw-r--r-- | FS/FS/cust_credit_bill.pm | 4 | ||||
| -rw-r--r-- | FS/FS/cust_credit_refund.pm | 4 |
3 files changed, 9 insertions, 4 deletions
diff --git a/FS/FS/cust_bill_pay.pm b/FS/FS/cust_bill_pay.pm index ac82c542d..921c0255c 100644 --- a/FS/FS/cust_bill_pay.pm +++ b/FS/FS/cust_bill_pay.pm @@ -162,8 +162,9 @@ sub check { ; return $error if $error; - $self->_date(time) unless $self->_date; + return "amount must be > 0" if $self->amount == 0; + $self->_date(time) unless $self->_date; ''; #no error } @@ -194,7 +195,7 @@ sub cust_bill { =head1 VERSION -$Id: cust_bill_pay.pm,v 1.6 2001-09-02 05:38:13 ivan Exp $ +$Id: cust_bill_pay.pm,v 1.7 2001-09-02 07:49:52 ivan Exp $ =head1 BUGS diff --git a/FS/FS/cust_credit_bill.pm b/FS/FS/cust_credit_bill.pm index 0892f7984..58cc78965 100644 --- a/FS/FS/cust_credit_bill.pm +++ b/FS/FS/cust_credit_bill.pm @@ -107,6 +107,8 @@ sub check { ; return $error if $error; + return "amount must be > 0" if $self->amount == 0; + return "Unknown credit" unless my $cust_credit = qsearchs( 'cust_credit', { 'crednum' => $self->crednum } ); @@ -141,7 +143,7 @@ sub cust_credit { =head1 VERSION -$Id: cust_credit_bill.pm,v 1.3 2001-09-02 01:27:11 ivan Exp $ +$Id: cust_credit_bill.pm,v 1.4 2001-09-02 07:49:52 ivan Exp $ =head1 BUGS diff --git a/FS/FS/cust_credit_refund.pm b/FS/FS/cust_credit_refund.pm index 4c5195717..fb09a42d8 100644 --- a/FS/FS/cust_credit_refund.pm +++ b/FS/FS/cust_credit_refund.pm @@ -147,6 +147,8 @@ sub check { ; return $error if $error; + return "amount must be > 0" if $self->amount == 0; + $self->_date(time) unless $self->_date; return "unknown cust_credit.crednum: ". $self->crednum @@ -170,7 +172,7 @@ sub cust_refund { =head1 VERSION -$Id: cust_credit_refund.pm,v 1.3 2001-09-02 05:38:13 ivan Exp $ +$Id: cust_credit_refund.pm,v 1.4 2001-09-02 07:49:52 ivan Exp $ =head1 BUGS |