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

checklist is the proper has value throughout.

Browse source
This commit is contained in:
Bradley M. Kuhn 2016-01-22 17:10:09 -08:00
parent 1039f6f6d2
commit 167d8c9520
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/t-shirt-label-print.plx
View file

@ -99,7 +99,7 @@ foreach my $id (@supporterIds) {
$lines{$sizeNeeded}{checklist} = [] unless defined $lines{$sizeNeeded}{checklist};
$lines{$sizeNeeded}{labels} .= '\mlabel{}{TO: \\\\ ' . join(' \\\\ ', split('\n', $latexPostal)) . "}\n";
my $shortLatexPostal = latex_encode(sprintf('%-30.30s', join(" ", reverse split('\n', $postalAddresses[0]))));
push(@{$lines{$sizeNeeded}{checklst}}, '{ $\Box$} &' . sprintf("%-3d & %5s & %-30s & %s ",
push(@{$lines{$sizeNeeded}{checklist}}, '{ $\Box$} &' . sprintf("%-3d & %5s & %-30s & %s ",
$id, encode('UTF-8', $sp->getLedgerEntityId($id)),
encode('UTF-8', $sizeNeeded),
$shortLatexPostal) .
@ -107,7 +107,7 @@ foreach my $id (@supporterIds) {
}
my $lineCount = 0;
foreach my $size (sort { $a cmp $b } keys %lines) {
foreach my $line (@{$lines{$size}{boxes}}) {
foreach my $line (@{$lines{$size}{checklist}}) {
if ($lineCount++ > 40) {
$lineCount = 0;
print LIST "\n\n", '\end{tabular}',"\n\\pagebreak\n\\begin{tabular}{|l|l|l|l|l|} \\hline\n";