From: Bill Erickson <berickxx@gmail.com>
Date: Wed, 2 Nov 2016 19:49:28 +0000 (-0400)
Subject: LP#1513872 correct UNT value (don't include UNA,UNB)
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=bcff0baccaeed80ccf29f43981be9d88530b273b;p=working%2FEvergreen.git

LP#1513872 correct UNT value (don't include UNA,UNB)

Signed-off-by: Bill Erickson <berickxx@gmail.com>
---

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 .= <<EDI;