From dd8d8cba37c27b2bc5f55cf7e4d642348a4271a8 Mon Sep 17 00:00:00 2001
From: "Bradley M. Kuhn" <bkuhn@ebb.org>
Date: Thu, 7 Jan 2016 12:38:53 -0800
Subject: [PATCH] Reverse shortened postal address printed.

Packers find that reversing the postal address makes people easier to
find when matching up labels.
---
 scripts/t-shirt-label-print.plx | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/scripts/t-shirt-label-print.plx b/scripts/t-shirt-label-print.plx
index ae6e64b..eab45ac 100644
--- a/scripts/t-shirt-label-print.plx
+++ b/scripts/t-shirt-label-print.plx
@@ -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),