[freeside-commits] freeside/FS/FS cust_svc.pm,1.66.2.8,1.66.2.9

[Ivan,,,]

Update of /home/cvs/cvsroot/freeside/FS/FS
In directory wavetail.420.am:/tmp/cvs-serv23032

Modified Files:
      Tag: FREESIDE_1_7_BRANCH
	cust_svc.pm 
Log Message:
disable_src fixes

Index: cust_svc.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/cust_svc.pm,v
retrieving revision 1.66.2.8
retrieving revision 1.66.2.9
diff -u -d -r1.66.2.8 -r1.66.2.9
--- cust_svc.pm	28 Mar 2008 22:31:12 -0000	1.66.2.8
+++ cust_svc.pm	5 Jun 2008 19:44:30 -0000	1.66.2.9
@@ -655,6 +655,9 @@
   my @where =  map " $_ = '$number'        ", @fields;
   push @where, map " $_ = '$prefix$number' ", @fields
     if length($prefix);
+  if ( $prefix =~ /^\+(\d+)$/ ) {
+    push @where, map " $_ = '$1$number' ", @fields
+  }
 
   my $extra_sql = ' AND ( '. join(' OR ', @where ). ' ) ';