From be544bde8381fea746bf2524bcfe96b4d1dbafce Mon Sep 17 00:00:00 2001 From: Bill Erickson Date: Wed, 1 Dec 2021 12:01:59 -0500 Subject: [PATCH] LP1952931 Parsing DESADV EDI Messages Signed-off-by: Bill Erickson --- Open-ILS/src/perlmods/lib/OpenILS/Utils/EDIReader.pm | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Utils/EDIReader.pm b/Open-ILS/src/perlmods/lib/OpenILS/Utils/EDIReader.pm index cd2ecbeb1d..e68f6eabdf 100644 --- a/Open-ILS/src/perlmods/lib/OpenILS/Utils/EDIReader.pm +++ b/Open-ILS/src/perlmods/lib/OpenILS/Utils/EDIReader.pm @@ -114,6 +114,11 @@ sub read { next unless $msg; for my $field (keys %edi_fields) { + + # With ASN, a purchase_order value specified per lineitem. + # Avoid tracking a message-level PO to avoid confusion. + next if $msg->{message_type} eq 'DESADV' && $field eq 'purchase_order'; + ($msg->{$field}) = $_ =~ /$edi_fields{$field}/ if /$edi_fields{$field}/; } -- 2.11.0