From: khoff <khoff>
Date: Fri, 11 May 2007 19:51:11 +0000 (+0000)
Subject: Quiet "Use of uninitialized value in string eq".  (Backport)
X-Git-Tag: freeside_1_7_3rc1~444
X-Git-Url: http://git.freeside.biz/gitweb/?a=commitdiff_plain;h=bf33a68cb21ef3a4596cafe0996f0f9e61367500;p=freeside.git

Quiet "Use of uninitialized value in string eq".  (Backport)
---

diff --git a/FS/FS/svc_Common.pm b/FS/FS/svc_Common.pm
index 52226d20b..fd3a46aa6 100644
--- a/FS/FS/svc_Common.pm
+++ b/FS/FS/svc_Common.pm
@@ -128,7 +128,7 @@ sub virtual_fields {
     my %flags = map { $_->columnname, $_->columnflag } (
         qsearch ('part_svc_column', { svcpart => $svcpart } )
       );
-    return grep { not ($flags{$_} eq 'X') } @vfields;
+    return grep { not ( defined($flags{$_}) && $flags{$_} eq 'X') } @vfields;
   } else { # Case 3
     return @vfields;
   }