From: ivan <ivan>
Date: Thu, 12 Apr 2007 02:42:32 +0000 (+0000)
Subject: quiet "Use of uninitialized value in string eq at /usr/local/share/perl/5.8.4/FS... 
X-Git-Tag: TRIXBOX_2_6~550
X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=commitdiff_plain;h=b611f02e479f4a7f9840f59f773d282b1c13b62f

quiet "Use of uninitialized value in string eq at /usr/local/share/perl/5.8.4/FS/svc_Common.pm line 131".  i think.
---

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;
   }