From 3b14ca9abe61026cbf26e016393e0dda4e797cb3 Mon Sep 17 00:00:00 2001 From: "Bradley M. Kuhn" Date: Fri, 27 May 2016 06:02:17 -0700 Subject: [PATCH] Fix address formatting here too. --- scripts/t-shirt-label-print.plx | 2 ++ 1 file changed, 2 insertions(+) diff --git a/scripts/t-shirt-label-print.plx b/scripts/t-shirt-label-print.plx index ffc407d..0f9bdf7 100644 --- a/scripts/t-shirt-label-print.plx +++ b/scripts/t-shirt-label-print.plx @@ -116,6 +116,8 @@ foreach my $id (sort { sortFunction($a, $b); } @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', $postalAddress)))); + $shortLatexPostal =~ s/\\unmatched\{0141\}/\L{}/g; + $shortLatexPostal =~ s/\\unmatched\{0142\}/\l{}/g; push(@{$lines{$sizeNeeded}{checklist}}, '{ $\Box$} &' . sprintf("%-3d & %5s & %-30s & %s ", $id, encode('UTF-8', $sp->getLedgerEntityId($id)), encode('UTF-8', $sizeNeeded),