From 2ee09c1343daa939da146c102dbca72f0a98d2bf Mon Sep 17 00:00:00 2001
From: Ivan Kohler <ivan@freeside.biz>
Date: Thu, 20 Dec 2012 01:51:24 -0800
Subject: add "with email address(es)" and "without postal mail invoices" to
 adv. customer search, RT#20708

---
 FS/FS/cust_main/Search.pm | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)

(limited to 'FS')

diff --git a/FS/FS/cust_main/Search.pm b/FS/FS/cust_main/Search.pm
index b07223ec5..1047890c3 100644
--- a/FS/FS/cust_main/Search.pm
+++ b/FS/FS/cust_main/Search.pm
@@ -632,6 +632,27 @@ sub search {
   push @where, "geocode is not null"
     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
   ##
-- 
cgit v1.2.1