From e98b8b9d423b49f4c4307e8329a278b06903a60b Mon Sep 17 00:00:00 2001 From: "Bradley M. Kuhn" Date: Thu, 26 May 2016 21:03:54 -0700 Subject: [PATCH] Print the overall needed. --- scripts/t-shirt-label-print.plx | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/scripts/t-shirt-label-print.plx b/scripts/t-shirt-label-print.plx index 532b77f..1bf3e89 100644 --- a/scripts/t-shirt-label-print.plx +++ b/scripts/t-shirt-label-print.plx @@ -141,14 +141,17 @@ foreach my $size (sort keys %sizeCounts) { } print LIST "$size & $sizeCounts{$size}\\\\\n"; } +my $overallNeed = 0; if (scalar(keys %needList) > 0) { print LIST "\\hline \n\n", '\end{tabular}',"\n\n\\bigskip\n\n"; print LIST "T-SHIRTS NEEDED\n\\begin{tabular}{|l|l|} \\hline\n"; foreach my $size (sort keys %needList) { print LIST "$size & $needList{$size}\\\\\n"; + $overallNeed += $needList{$size}; } } -print LIST "\\hline \n\n", '\end{tabular}',"\n\n\nOVERALL SENDING COUNT: $overallCount", '\end{document}', "\n"; +print LIST "\\hline \n\n", '\end{tabular}',"\n\n\nOVERALL SENDING COUNT: $overallCount", + "\n\nOVERAL NEED COUNT: $overallNeed\n", '\end{document}', "\n"; close LIST; close LABELS;