From: ivan <ivan>
Date: Mon, 4 May 2009 01:17:26 +0000 (+0000)
Subject: eliminate Argument "" isn't numeric in addition (+) warning
X-Git-Tag: freeside_1_7_4rc1~37
X-Git-Url: http://git.freeside.biz/gitweb/?a=commitdiff_plain;h=d83a396941b780eddcfd21c7e90c4b653cb97420;p=freeside.git

eliminate Argument "" isn't numeric in addition (+) warning
---

diff --git a/FS/FS/svc_acct.pm b/FS/FS/svc_acct.pm
index 584274dc5..03678c570 100644
--- a/FS/FS/svc_acct.pm
+++ b/FS/FS/svc_acct.pm
@@ -1639,7 +1639,7 @@ my %op2condition = (
                $self->$column - $amount <= 0;
              },
   '+' => sub { my($self, $column, $amount) = @_;
-               $self->$column + $amount > 0;
+               ($self->$column || 0) + $amount > 0;
              },
 );
 my %op2warncondition = (
@@ -1648,7 +1648,7 @@ my %op2warncondition = (
                $self->$column - $amount <= $self->$threshold + 0;
              },
   '+' => sub { my($self, $column, $amount) = @_;
-               $self->$column + $amount > 0;
+               ($self->$column || 0) + $amount > 0;
              },
 );