[freeside-commits] freeside/FS/FS/cust_main Search.pm, 1.6.2.1, 1.6.2.2

[Ivan,,,]

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

Modified Files:
      Tag: FREESIDE_2_1_BRANCH
	Search.pm 
Log Message:
searching kingcon's idea of legacy customer numbers without remembering leading 0s

Index: Search.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/cust_main/Search.pm,v
retrieving revision 1.6.2.1
retrieving revision 1.6.2.2
diff -u -w -d -r1.6.2.1 -r1.6.2.2
--- Search.pm	10 Jan 2011 20:14:09 -0000	1.6.2.1
+++ Search.pm	17 Jan 2011 00:36:23 -0000	1.6.2.2
@@ -142,9 +142,14 @@
       } );
     }
 
+    my $anum = $num;
+    if ( $conf->config('cust_main-agent_custid-format') =~ /^\\d\{(\d+)\}$/ ) {
+      $anum = sprintf("%0$1u", $num);
+    }
+
     push @cust_main, qsearch( {
       'table'     => 'cust_main',
-      'hashref'   => { 'agent_custid' => $num, %options },
+      'hashref'   => { 'agent_custid' => $anum, %options },
       'extra_sql' => " AND $agentnums_sql", #agent virtualization
     } );