Conservancy/supporters
6
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

emailOk: attempts to make more versatile.

Browse source 
Most of this commented out because I was attempting to make it more versatile
and it failed.
This commit is contained in:
Bradley M. Kuhn 2018-01-24 11:45:03 -08:00
parent a82ebfb0a9
commit 2816c8ab2e
1 changed files with 8 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
Supporters/lib/Supporters.pm
View file

@ -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($$) {