[freeside-commits] freeside/FS/FS svc_Common.pm,1.40,1.41

[Ivan,,,]

Update of /home/cvs/cvsroot/freeside/FS/FS
In directory wavetail:/tmp/cvs-serv5223

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

Index: svc_Common.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/svc_Common.pm,v
retrieving revision 1.40
retrieving revision 1.41
diff -u -d -r1.40 -r1.41
--- svc_Common.pm	11 Apr 2007 04:28:21 -0000	1.40
+++ svc_Common.pm	12 Apr 2007 02:42:32 -0000	1.41
@@ -128,7 +128,7 @@
     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;
   }