diff options
| -rw-r--r-- | FS/FS/cust_main/Search.pm | 21 | ||||
| -rwxr-xr-x | httemplate/search/cust_main.html | 3 | ||||
| -rwxr-xr-x | httemplate/search/report_cust_main.html | 10 |
3 files changed, 33 insertions, 1 deletions
diff --git a/FS/FS/cust_main/Search.pm b/FS/FS/cust_main/Search.pm index a6eb0a54d..fb516ee39 100644 --- a/FS/FS/cust_main/Search.pm +++ b/FS/FS/cust_main/Search.pm @@ -619,6 +619,27 @@ sub search { if $params->{'with_geocode'}; ## + # "with email address(es)" checkbox + ## + + push @where, + 'EXISTS ( SELECT 1 FROM cust_main_invoice + WHERE cust_main_invoice.custnum = cust_main.custnum + AND length(dest) > 5 + )' # AND dest LIKE '%@%' + if $params->{'with_email'}; + + ## + # "without postal mail invoices" checkbox + ## + + push @where, + "NOT EXISTS ( SELECT 1 FROM cust_main_invoice + WHERE cust_main_invoice.custnum = cust_main.custnum + AND dest = 'POST' )" + if $params->{'no_POST'}; + + ## # dates ## diff --git a/httemplate/search/cust_main.html b/httemplate/search/cust_main.html index f75b45197..645c81e69 100755 --- a/httemplate/search/cust_main.html +++ b/httemplate/search/cust_main.html @@ -42,7 +42,8 @@ my %search_hash = (); #scalars my @scalars = qw ( agentnum status address paydate_year paydate_month invoice_terms - no_censustract with_geocode custbatch usernum + no_censustract with_geocode with_email no_POST + custbatch usernum cancelled_pkgs cust_fields flattened_pkgs ); diff --git a/httemplate/search/report_cust_main.html b/httemplate/search/report_cust_main.html index 4fb8fecfb..5cf85ad64 100755 --- a/httemplate/search/report_cust_main.html +++ b/httemplate/search/report_cust_main.html @@ -164,6 +164,16 @@ % } <TR> + <TD ALIGN="right" VALIGN="center"><% mt('With email address(es)') |h %></TD> + <TD><INPUT TYPE="checkbox" NAME="with_email"></TD> + </TR> + + <TR> + <TD ALIGN="right" VALIGN="center"><% mt('Without postal mail invoices') |h %></TD> + <TD><INPUT TYPE="checkbox" NAME="no_POST"></TD> + </TR> + + <TR> <TH CLASS="background" COLSPAN=2> </TH> </TR> |