testing fix for broken edi messages

diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Utils/EDIWriter.pm b/Open-ILS/src/perlmods/lib/OpenILS/Utils/EDIWriter.pm
index b0349ee..b8c0186 100644 (file)
--- a/Open-ILS/src/perlmods/lib/OpenILS/Utils/EDIWriter.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/Utils/EDIWriter.pm
@@ -170,7 +170,7 @@ sub compile_po {
 
     $compiled{buyer_code} = # B&T
         $compiled{org_unit_san}.' '.$po->provider->edi_default->vendcode
-        if $compiled{edi_attrs}->{BUYER_ID_INCLUDE_VENDCODE};
+        if $compiled{edi_attrs}->{BUYER_ID_INCLUDE_VENDCODE} && defined($po->provider->edi_default->vendcode);
 
     $compiled{buyer_code} = $po->provider->edi_default->vendcode
         if $compiled{edi_attrs}->{BUYER_ID_ONLY_VENDCODE}; # MLS