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

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

diff --git a/FS/FS/svc_acct.pm b/FS/FS/svc_acct.pm
index 9ab90349f..955547b73 100644
--- a/FS/FS/svc_acct.pm
+++ b/FS/FS/svc_acct.pm
@@ -1711,7 +1711,7 @@ my %op2condition = (
                $self->$column - $amount <= 0;
              },
   '+' => sub { my($self, $column, $amount) = @_;
-               $self->$column + $amount > 0;
+               ($self->$column || 0) + $amount > 0;
              },
 );
 my %op2warncondition = (
@@ -1720,7 +1720,7 @@ my %op2warncondition = (
                $self->$column - $amount <= $self->$threshold + 0;
              },
   '+' => sub { my($self, $column, $amount) = @_;
-               $self->$column + $amount > 0;
+               ($self->$column || 0) + $amount > 0;
              },
 );