From e439e11ad3d4eec40013e46a96421e5f7e7d7b72 Mon Sep 17 00:00:00 2001 From: Lebbeous Fogle-Weekley Date: Thu, 24 Jan 2013 17:16:07 -0500 Subject: [PATCH] Acq: Be more liberal reading EDIFACT message reference number Spec, if I read it correctly, says that this is alphanumeric, not just numeric, and ULS is one vendor I've seen taking advantage of letters and numbers in that space. This commit makes the relevant regex in our EDIReader appropriately more tolerant. Signed-off-by: Lebbeous Fogle-Weekley --- Open-ILS/src/perlmods/lib/OpenILS/Utils/EDIReader.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Utils/EDIReader.pm b/Open-ILS/src/perlmods/lib/OpenILS/Utils/EDIReader.pm index 222b40de50..bfa0a501de 100644 --- a/Open-ILS/src/perlmods/lib/OpenILS/Utils/EDIReader.pm +++ b/Open-ILS/src/perlmods/lib/OpenILS/Utils/EDIReader.pm @@ -19,7 +19,7 @@ my $NEW_MSG_RE = '^UNH'; # starts a new message my $NEW_LIN_RE = '^LIN'; # starts a new line item my %edi_fields = ( - message_type => qr/^UNH\+\d+\+(\S{6})/, + message_type => qr/^UNH\+[A-z0-9]+\+(\S{6})/, buyer_san => qr/^NAD\+BY\+([^:]+)::31B/, buyer_acct => qr/^NAD\+BY\+([^:]+)::91/, vendor_san => qr/^NAD\+SU\+([^:]+)::31B/, -- 2.11.0