From c34d1fcd9b979bb3598c32dfab4b6d79ccd5a010 Mon Sep 17 00:00:00 2001
From: levinse <levinse>
Date: Mon, 10 Jan 2011 20:14:08 +0000
Subject: [PATCH] add customer search by billing email, RT10399

---
 FS/FS/cust_main/Search.pm | 13 +++++++++++--
 1 file changed, 11 insertions(+), 2 deletions(-)

diff --git a/FS/FS/cust_main/Search.pm b/FS/FS/cust_main/Search.pm
index ad24ff86e..06a4522f4 100644
--- a/FS/FS/cust_main/Search.pm
+++ b/FS/FS/cust_main/Search.pm
@@ -112,8 +112,17 @@ sub smart_search {
   # custnum search (also try agent_custid), with some tweaking options if your
   # 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*$/
             )
-- 
2.11.0