[freeside-commits] freeside/FS/FS/cust_main Search.pm,1.6,1.7

[Erik Levinson]

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

Modified Files:
	Search.pm 
Log Message:
add customer search by billing email, RT10399

Index: Search.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/cust_main/Search.pm,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -w -d -r1.6 -r1.7
--- Search.pm	5 Nov 2010 03:56:06 -0000	1.6
+++ Search.pm	10 Jan 2011 20:14:08 -0000	1.7
@@ -113,7 +113,16 @@
   # legacy cust "numbers" have letters
   } 
 
-  if ( $search =~ /^\s*(\d+)\s*$/
+  
+  if ( $search =~ /@/ ) {
+      push @cust_main,
+	  map $_->cust_main,
+	      qsearch( {
+			 'table'     => 'cust_main_invoice',
+			 'hashref'   => { 'dest' => $search },
+		       }
+		     );
+  } elsif ( $search =~ /^\s*(\d+)\s*$/
          || ( $conf->config('cust_main-agent_custid-format') eq 'ww?d+'
               && $search =~ /^\s*(\w\w?\d+)\s*$/
             )