diff options
| author | ivan <ivan> | 2002-01-24 16:58:47 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2002-01-24 16:58:47 +0000 |
| commit | 243ec8f6a0ef59759f1398967faa561a43b1dff5 (patch) | |
| tree | 2cc83446aed1f87e1417f5141745aa6f4e4c87b8 /FS/FS/cust_credit_bill.pm | |
| parent | 0d2d5a1fdc65bc8511dcf9727e534e7e5da271f7 (diff) | |
<rluser> rather than == 0 in the ::check's ....
<rluser> you might consider <= 0
Diffstat (limited to 'FS/FS/cust_credit_bill.pm')
| -rw-r--r-- | FS/FS/cust_credit_bill.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/FS/FS/cust_credit_bill.pm b/FS/FS/cust_credit_bill.pm index 8f992b580..62215419c 100644 --- a/FS/FS/cust_credit_bill.pm +++ b/FS/FS/cust_credit_bill.pm @@ -109,7 +109,7 @@ sub check { ; return $error if $error; - return "amount must be > 0" if $self->amount == 0; + return "amount must be > 0" if $self->amount <= 0; return "Unknown credit" unless my $cust_credit = @@ -145,7 +145,7 @@ sub cust_credit { =head1 VERSION -$Id: cust_credit_bill.pm,v 1.6 2001-09-26 09:17:06 ivan Exp $ +$Id: cust_credit_bill.pm,v 1.7 2002-01-24 16:58:47 ivan Exp $ =head1 BUGS |