diff options
| author | ivan <ivan> | 2001-09-02 07:49:52 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2001-09-02 07:49:52 +0000 |
| commit | dbfb0ae501d5acba37f9348476d94b99a4c92450 (patch) | |
| tree | 29850d2a9d94808efb9f2a6edcfd4477701ea8f3 /FS/FS/cust_credit_refund.pm | |
| parent | 4f8a0bb6d0c789c7e156a446dc61dbe27938a372 (diff) | |
things are starting to work again, sorta.
Diffstat (limited to 'FS/FS/cust_credit_refund.pm')
| -rw-r--r-- | FS/FS/cust_credit_refund.pm | 4 |
1 files changed, 3 insertions, 1 deletions
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 |