diff options
author | ivan <ivan> | 2007-12-18 20:58:25 +0000 |
---|---|---|
committer | ivan <ivan> | 2007-12-18 20:58:25 +0000 |
commit | 378bd3dcbe67b0ea00ab65aca2c59ff777137469 (patch) | |
tree | 940c9c9d40ea987025a5746c3c47aedf6d63daab | |
parent | 1c051f73e8abf23206d0373e7c83279b37bed708 (diff) |
legacy agent_custid field should be as searchable as actual custnum, right? at least if it is a number...
-rw-r--r-- | FS/FS/cust_main.pm | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/FS/FS/cust_main.pm b/FS/FS/cust_main.pm index b5e689233..952aa73c2 100644 --- a/FS/FS/cust_main.pm +++ b/FS/FS/cust_main.pm @@ -5289,6 +5289,9 @@ sub smart_search { } } elsif ( $search =~ /^\s*(\d+)\s*$/ ) { # customer # search + # (also try agent_custid) + # (regex needs tweaking if your + # legacy cust numbers have letters) push @cust_main, qsearch( { 'table' => 'cust_main', @@ -5296,6 +5299,12 @@ sub smart_search { 'extra_sql' => " AND $agentnums_sql", #agent virtualization } ); + push @cust_main, qsearch( { + 'table' => 'cust_main', + 'hashref' => { 'agent_custid' => $1, %options }, + 'extra_sql' => " AND $agentnums_sql", #agent virtualization + } ); + } elsif ( $search =~ /^\s*(\S.*\S)\s+\((.+), ([^,]+)\)\s*$/ ) { my($company, $last, $first) = ( $1, $2, $3 ); |