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

Handle multiple addresses.

Browse source
This commit is contained in:
Bradley M. Kuhn 2019-12-10 09:38:20 -08:00
parent f9e94aec25
commit 8f6bd0e563
1 changed files with 6 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
scripts/t-shirt-label-print.plx
View file

@ -121,6 +121,7 @@ foreach my $id (sort { sortFunction($a, $b); } @supporterIds) {
my(@postalAddresses) = $sp->getPostalAddresses($id);
$postalAddress = $postalAddresses[0];
}
my(@arrayPostal) = split("\n", $postalAddress);
my $latexPostal = latex_encode($postalAddress);
$latexPostal =~ s/\\unmatched\{0141\}/\L{}/g;
$latexPostal =~ s/\\unmatched\{0142\}/\l{}/g;
@ -137,10 +138,12 @@ foreach my $id (sort { sortFunction($a, $b); } @supporterIds) {
$overallCount++;
$lines{$sizeNeeded}{labels} = "" unless defined $lines{$sizeNeeded}{labels};
$lines{$sizeNeeded}{checklist} = [] unless defined $lines{$sizeNeeded}{checklist};
$lines{$sizeNeeded}{addressList} = [] unless defined $lines{$sizeNeeded}{addressList};
$lines{$sizeNeeded}{labels} .= '\mlabel{}{TO: \\\\ ' . join(' \\\\ ', split('\n', $latexPostal)) . "}\n";
my $shortLatexPostal = latex_encode(sprintf('%-30.30s', join(" ", reverse split('\n', $postalAddress))));
$shortLatexPostal =~ s/\\unmatched\{0141\}/\L{}/g;
$shortLatexPostal =~ s/\\unmatched\{0142\}/\l{}/g;
push(@{$lines{$sizeNeeded}{addressList}}, { id => $id, address => \@arrayPostal });
push(@{$lines{$sizeNeeded}{checklist}}, '{ $\Box$} &' . sprintf("%-3d & %5s & %-30s & %s ",
$id, encode('UTF-8', $sp->getLedgerEntityId($id)),
encode('UTF-8', $sizeNeeded),
@ -148,6 +151,7 @@ foreach my $id (sort { sortFunction($a, $b); } @supporterIds) {
'\\\\ \hline' . "\n");
}
my $lineCount = 0;
my @allAddresses;
foreach my $size (sort { $a cmp $b } keys %lines) {
foreach my $line (@{$lines{$size}{checklist}}) {
if ($lineCount++ > 40) {
@ -156,8 +160,10 @@ foreach my $size (sort { $a cmp $b } keys %lines) {
}
print LIST $line;
}
push(@allAddresses, @{$lines{$size}{addressList}});
print LABELS $lines{$size}{labels};
delete $lines{$size}{labels};
delete $lines{$size}{addressList};
}
print LIST "\n\n", '\end{tabular}',"\n";