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 3036f34..b482859 100644 (file)
--- a/Open-ILS/src/perlmods/lib/OpenILS/Utils/EDIWriter.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/Utils/EDIWriter.pm
@@ -382,6 +382,12 @@ UNB+UNOB:3+$c{org_unit_san}:31B+$c{vendor_san}:31B+$datetime+1'
 UNH+1+ORDERS:D:96A:UN'
 BGM+220+$c{po_id}+9'
 DTM+137:$date:102'
+EDI
+
+    $edi .= "NAD+BY+$c{org_unit_san}::31B\n"
+        unless $self->{compiled}->{edi_attrs}->{BUYER_ID_INCLUDE_VENDCODE};
+
+    $edi .= <<EDI;
 NAD+BY+$c{buyer_code}::91'
 NAD+SU+$c{vendor_san}::31B'
 NAD+SU+$c{provider_id}::92'