diff options
author | Christopher Burger <burgerc@freeside.biz> | 2019-05-24 10:51:08 -0400 |
---|---|---|
committer | Christopher Burger <burgerc@freeside.biz> | 2019-05-28 11:26:17 -0400 |
commit | 2cbc631a817e19dcfe4b61d2fd856e87f01d3509 (patch) | |
tree | 582ac7604a47323c9010288b38c0cf64e8249616 /FS/FS/cust_main | |
parent | af5d7f1ca409f3679a76740bb5f29016963f99d3 (diff) |
RT# 77532 - can search cust main phone numbers in advanced customer search
Diffstat (limited to 'FS/FS/cust_main')
-rw-r--r-- | FS/FS/cust_main/Search.pm | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/FS/FS/cust_main/Search.pm b/FS/FS/cust_main/Search.pm index 63f10fb..479ebf5 100644 --- a/FS/FS/cust_main/Search.pm +++ b/FS/FS/cust_main/Search.pm @@ -789,6 +789,21 @@ sub search { )"; } + ## + # phones + ## + + foreach my $phonet (qw(daytime night mobile)) { + if ($params->{$phonet}) { + $params->{$phonet} =~ s/\D//g; + $params->{$phonet} =~ /^(\d{3})(\d{3})(\d{4})(\d*)$/ + or next; + my $phonen = "$1-$2-$3"; + if ($4) { push @where, "cust_main.".$phonet." = '".$phonen." x$4'"; } + else { push @where, "cust_main.".$phonet." like '".$phonen."%'"; } + } + } + ### # refnum ### |