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 613693a..49d1001 100644 (file)
--- 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;