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 | |
parent | 0d2d5a1fdc65bc8511dcf9727e534e7e5da271f7 (diff) |
<rluser> rather than == 0 in the ::check's ....
<rluser> you might consider <= 0
-rw-r--r-- | FS/FS/cust_bill_pay.pm | 4 | ||||
-rw-r--r-- | FS/FS/cust_credit.pm | 4 | ||||
-rw-r--r-- | FS/FS/cust_credit_bill.pm | 4 | ||||
-rw-r--r-- | FS/FS/cust_credit_refund.pm | 4 | ||||
-rw-r--r-- | FS/FS/cust_pay.pm | 4 | ||||
-rw-r--r-- | FS/FS/cust_refund.pm | 4 |
6 files changed, 12 insertions, 12 deletions
diff --git a/FS/FS/cust_bill_pay.pm b/FS/FS/cust_bill_pay.pm index 2b0105139..1c838b932 100644 --- a/FS/FS/cust_bill_pay.pm +++ b/FS/FS/cust_bill_pay.pm @@ -162,7 +162,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; $self->_date(time) unless $self->_date; @@ -195,7 +195,7 @@ sub cust_bill { =head1 VERSION -$Id: cust_bill_pay.pm,v 1.10 2001-12-21 20:55:35 ivan Exp $ +$Id: cust_bill_pay.pm,v 1.11 2002-01-24 16:58:47 ivan Exp $ =head1 BUGS diff --git a/FS/FS/cust_credit.pm b/FS/FS/cust_credit.pm index 278e6dedd..3044af7ea 100644 --- a/FS/FS/cust_credit.pm +++ b/FS/FS/cust_credit.pm @@ -160,7 +160,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 customer" unless qsearchs( 'cust_main', { 'custnum' => $self->custnum } ); @@ -237,7 +237,7 @@ sub credited { =head1 VERSION -$Id: cust_credit.pm,v 1.13 2002-01-22 15:57:33 ivan Exp $ +$Id: cust_credit.pm,v 1.14 2002-01-24 16:58:47 ivan Exp $ =head1 BUGS 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 diff --git a/FS/FS/cust_credit_refund.pm b/FS/FS/cust_credit_refund.pm index 83f6e2f75..7079d28e9 100644 --- a/FS/FS/cust_credit_refund.pm +++ b/FS/FS/cust_credit_refund.pm @@ -149,7 +149,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; $self->_date(time) unless $self->_date; @@ -185,7 +185,7 @@ sub cust_refund { =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.8 2002-01-24 16:58:47 ivan Exp $ =head1 BUGS diff --git a/FS/FS/cust_pay.pm b/FS/FS/cust_pay.pm index 00c6e1cfe..8f790a61a 100644 --- a/FS/FS/cust_pay.pm +++ b/FS/FS/cust_pay.pm @@ -240,7 +240,7 @@ sub check { ; return $error if $error; - return "paid must be > 0 " if $self->paid == 0; + return "paid must be > 0 " if $self->paid <= 0; return "unknown cust_main.custnum: ". $self->custnum unless $self->invnum @@ -307,7 +307,7 @@ sub unapplied { =head1 VERSION -$Id: cust_pay.pm,v 1.12 2002-01-24 11:52:02 ivan Exp $ +$Id: cust_pay.pm,v 1.13 2002-01-24 16:58:47 ivan Exp $ =head1 BUGS diff --git a/FS/FS/cust_refund.pm b/FS/FS/cust_refund.pm index a1d1e594c..2f7b3af4f 100644 --- a/FS/FS/cust_refund.pm +++ b/FS/FS/cust_refund.pm @@ -221,7 +221,7 @@ sub check { ; return $error if $error; - return "refund must be > 0 " if $self->refund == 0; + return "refund must be > 0 " if $self->refund <= 0; $self->_date(time) unless $self->_date; @@ -261,7 +261,7 @@ sub check { =head1 VERSION -$Id: cust_refund.pm,v 1.13 2002-01-24 11:52:02 ivan Exp $ +$Id: cust_refund.pm,v 1.14 2002-01-24 16:58:47 ivan Exp $ =head1 BUGS |