From 2816c8ab2edeae94dde9e9cf7e64b79b147ff9ae Mon Sep 17 00:00:00 2001
From: "Bradley M. Kuhn" <bkuhn@ebb.org>
Date: Wed, 24 Jan 2018 11:45:03 -0800
Subject: [PATCH] emailOk: attempts to make more versatile.

Most of this commented out because I was attempting to make it more versatile
and it failed.
---
 Supporters/lib/Supporters.pm | 12 ++++++++----
 1 file changed, 8 insertions(+), 4 deletions(-)

diff --git a/Supporters/lib/Supporters.pm b/Supporters/lib/Supporters.pm
index d28c2cd..7a27307 100644
--- a/Supporters/lib/Supporters.pm
+++ b/Supporters/lib/Supporters.pm
@@ -1584,8 +1584,8 @@ sub findDonor($$) {
 ######################################################################
 # FIXME: docs
 
-sub emailOk($$) {
-  my($self, $donorId) = @_;
+sub emailOk($$;$) {
+  my($self, $donorId, $additionalTest) = @_;
 
   confess "lastGave: donorId, \"$donorId\" not found in supporter database"
     unless $self->_verifyId($donorId);
@@ -1597,8 +1597,12 @@ sub emailOk($$) {
   $contactSetting =$req->{requestConfiguration}
     if defined $req and defined $req->{requestConfiguration};
 
-  return ((not defined $contactSetting) or
-                 ($contactSetting eq 'no-paper-but-email-ok'));
+  my $answer = ((not defined $contactSetting) or
+                      ($contactSetting eq 'no-paper-but-email-ok'));
+#  if (defined $additionalTest and defined $contactSetting) {
+#    $answer = ($answer or ($contactSetting eq $additionalTest));
+#  }
+  return $answer;
 }
 
 sub paperMailOk($$) {