From: Ivan Kohler <ivan@freeside.biz>
Date: Tue, 21 Mar 2017 21:12:37 +0000 (-0700)
Subject: fix self-service contact logins, RT#74798
X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=commitdiff_plain;h=8410cdd0df8c470b0d804be5e03539303f2a8079

fix self-service contact logins, RT#74798
---

diff --git a/FS/FS/contact.pm b/FS/FS/contact.pm
index c462e55f3..a873fda47 100644
--- a/FS/FS/contact.pm
+++ b/FS/FS/contact.pm
@@ -766,8 +766,13 @@ sub by_selfservice_email {
     'table'     => 'contact_email',
     'addl_from' => ' LEFT JOIN contact USING ( contactnum ) ',
     'hashref'   => { 'emailaddress' => $email, },
-    'extra_sql' => " AND ( contact.disabled IS NULL ) ".
-                   " AND ( contact.selfservice_access = 'Y' )",
+    'extra_sql' => "
+      AND ( contact.disabled IS NULL )
+      AND EXISTS ( SELECT 1 FROM cust_contact
+                     WHERE contact.contactnum = cust_contact.contactnum
+                       AND cust_contact.selfservice_access = 'Y'
+                 )
+    ",
   }) or return '';
 
   $contact_email->contact;