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 | |
parent | af5d7f1ca409f3679a76740bb5f29016963f99d3 (diff) |
RT# 77532 - can search cust main phone numbers in advanced customer search
-rw-r--r-- | FS/FS/cust_main/Search.pm | 15 | ||||
-rwxr-xr-x | httemplate/search/cust_main.html | 1 | ||||
-rw-r--r-- | httemplate/search/elements/cust_main_phones.html | 27 | ||||
-rwxr-xr-x | httemplate/search/report_cust_main.html | 1 |
4 files changed, 44 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 ### diff --git a/httemplate/search/cust_main.html b/httemplate/search/cust_main.html index d0d0f27..4a83ee8 100755 --- a/httemplate/search/cust_main.html +++ b/httemplate/search/cust_main.html @@ -51,6 +51,7 @@ my %search_hash = (); my @scalars = qw ( agentnum salesnum status address city county state zip country location_history + daytime night mobile invoice_terms no_censustract with_geocode with_email tax no_tax POST no_POST custbatch usernum diff --git a/httemplate/search/elements/cust_main_phones.html b/httemplate/search/elements/cust_main_phones.html new file mode 100644 index 0000000..61aa1be --- /dev/null +++ b/httemplate/search/elements/cust_main_phones.html @@ -0,0 +1,27 @@ +<TR> + <TH VALIGN="top" ALIGN="right"><% mt('Phones') |h %></TD> + <TD COLSPAN=6> + <TABLE CELLSPACING=0 CELLPADDING=0> + <TR> +% foreach my $phone (qw(daytime night mobile)) { + <TD> + <INPUT TYPE="text" + NAME="<% $phone %>" + VALUE="" + SIZE=18 + > + <BR><FONT SIZE=-1 COLOR="#333333"><% mt($phone_label{$phone}) |h %></FONT> + </TD> + <TD> </TD> +% } + </TR> + </TABLE> + </TD> +</TR> +<%init> +my %phone_label = ( + daytime => 'Day Phone', + night => 'Night Phone', + mobile => 'Mobile Phone', +); +</%init>
\ No newline at end of file diff --git a/httemplate/search/report_cust_main.html b/httemplate/search/report_cust_main.html index da2f1a4..3dd92af 100755 --- a/httemplate/search/report_cust_main.html +++ b/httemplate/search/report_cust_main.html @@ -165,6 +165,7 @@ <FONT CLASS="fsinnerbox-title"><% emt('Location search options') %></FONT> <TABLE CLASS="fsinnerbox"> <& elements/options_cust_location.html &> + <& elements/cust_main_phones.html &> </TABLE> <BR> |