LP#1513872 EDIWriter NAD+BY+<ou_san>+31B support

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 b482859..412cb8c 100644 (file)
--- a/Open-ILS/src/perlmods/lib/OpenILS/Utils/EDIWriter.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/Utils/EDIWriter.pm
@@ -384,7 +384,7 @@ BGM+220+$c{po_id}+9'
 DTM+137:$date:102'
 EDI
 
-    $edi .= "NAD+BY+$c{org_unit_san}::31B\n"
+    $edi .= "NAD+BY+$c{org_unit_san}::31B'\n"
         unless $self->{compiled}->{edi_attrs}->{BUYER_ID_INCLUDE_VENDCODE};
 
     $edi .= <<EDI;