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

Reverse shortened postal address printed.

Browse source 
Packers find that reversing the postal address makes people easier to
find when matching up labels.
This commit is contained in:
Bradley M. Kuhn 2016-01-07 12:38:53 -08:00
parent a4fdb4ea99
commit dd8d8cba37
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -92,7 +92,7 @@ foreach my $id (@supporterIds) {
$labelsLines{$sizeNeeded} = "" unless defined $labelsLines{$sizeNeeded};
$boxLines{$sizeNeeded} = [] unless defined $boxLines{$sizeNeeded};
$labelsLines{$sizeNeeded} .= '\mlabel{}{TO: \\\\ ' . join(' \\\\ ', split('\n', $latexPostal)) . "}\n";
my $shortLatexPostal = latex_encode(sprintf('%-30.30s', $postalAddresses[0]));
my $shortLatexPostal = latex_encode(sprintf('%-30.30s', join(" ", reverse split('\n', $postalAddresses[0]))));
push(@{$boxLines{$sizeNeeded}}, '{ $\Box$} &' . sprintf("%-3d & %5s & %-30s & %s ",
$id, encode('UTF-8', $sp->getLedgerEntityId($id)),
encode('UTF-8', $sizeNeeded),