From bcff0baccaeed80ccf29f43981be9d88530b273b Mon Sep 17 00:00:00 2001 From: Bill Erickson Date: Wed, 2 Nov 2016 15:49:28 -0400 Subject: [PATCH] LP#1513872 correct UNT value (don't include UNA,UNB) Signed-off-by: Bill Erickson --- Open-ILS/src/perlmods/lib/OpenILS/Utils/EDIWriter.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Utils/EDIWriter.pm b/Open-ILS/src/perlmods/lib/OpenILS/Utils/EDIWriter.pm index 613693a39b..49d1001bd7 100644 --- a/Open-ILS/src/perlmods/lib/OpenILS/Utils/EDIWriter.pm +++ b/Open-ILS/src/perlmods/lib/OpenILS/Utils/EDIWriter.pm @@ -407,7 +407,7 @@ EDI # number of newlines. Add to count for lines below, not including # the UNZ segment. my $segments = $edi =~ tr/\n//; - $segments += 3; # UNS, CNT, UNT + $segments += 1; # UNS, CNT, UNT, but not UNA or UNB # EDI Trailer $edi .= <