From: ivan <ivan>
Date: Thu, 25 Jun 2009 19:55:35 +0000 (+0000)
Subject: eliminate harmless warning log spam:
X-Git-Tag: root_of_svc_elec_features~1092
X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=commitdiff_plain;h=0a4c53ac3a8feae51578012e55a6db5ad0d56ba7

eliminate harmless warning log spam:
 Argument "" isn't numeric in numeric eq (==)
at /usr/local/share/perl/5.8.8/FS/ClientAPI/Signup.pm line 57
---

diff --git a/FS/FS/ClientAPI/Signup.pm b/FS/FS/ClientAPI/Signup.pm
index d0ac419ec..32cdd9f0a 100644
--- a/FS/FS/ClientAPI/Signup.pm
+++ b/FS/FS/ClientAPI/Signup.pm
@@ -61,7 +61,9 @@ sub signup_info {
                   } }
                 grep { $_->svcpart($svc_x)
                        && ( $href->{ $_->pkgpart }
-                            || $_->agentnum == $agent->agentnum
+                            || ( $_->agentnum
+                                 && $_->agentnum == $agent->agentnum
+                               )
                           )
                      }
                   qsearch( 'part_pkg', { 'disabled' => '' } )