diff options
Diffstat (limited to 'FS/FS/cust_refund.pm')
| -rw-r--r-- | FS/FS/cust_refund.pm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/FS/FS/cust_refund.pm b/FS/FS/cust_refund.pm index 77bacdffb..7b8b29f5e 100644 --- a/FS/FS/cust_refund.pm +++ b/FS/FS/cust_refund.pm @@ -213,6 +213,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_main.custnum: ". $self->custnum @@ -249,7 +251,7 @@ sub check { =head1 VERSION -$Id: cust_refund.pm,v 1.8 2001-09-02 05:38:13 ivan Exp $ +$Id: cust_refund.pm,v 1.9 2002-01-22 15:57:33 ivan Exp $ =head1 BUGS |