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

Correct variable name typo.

Browse source
This commit is contained in:
Bradley M. Kuhn 2017-01-02 14:53:08 -08:00
parent 211bd09c65
commit 3283cff2e1
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
scripts/send-renewal-notices.plx
View file

@ -120,7 +120,7 @@ foreach my $supporterId (sort @supporterIds) {
my $displayName = $sp->getDisplayName($supporterId); my $displayName = $sp->getDisplayName($supporterId);
if ($isPaper) { if ($isPaper) {
next unless $sp->paperMailOk($donorId); next unless $sp->paperMailOk($supporterId);
my $latexDisplayName = latex_encode($displayName); my $latexDisplayName = latex_encode($displayName);
$latexDisplayName =~ s/\\unmatched\{0141\}/\L{}/g; $latexDisplayName =~ s/\\unmatched\{0141\}/\L{}/g;
$latexDisplayName =~ s/\\unmatched\{0142\}/\l{}/g; $latexDisplayName =~ s/\\unmatched\{0142\}/\l{}/g;
@ -159,7 +159,7 @@ foreach my $supporterId (sort @supporterIds) {
close LETTER; close LETTER;
close MESSAGE; close MESSAGE;
} else { } else {
next unless $sp->emailOk($donorId); next unless $sp->emailOk($supporterId);
open(MESSAGE, "<", $EMAIL_TEMPLATE); open(MESSAGE, "<", $EMAIL_TEMPLATE);
my @message; my @message;
while (my $line = <MESSAGE> ) { while (my $line = <MESSAGE> ) {