From: Lebbeous Fogle-Weekley Date: Thu, 24 Jan 2013 22:16:07 +0000 (-0500) Subject: Acq: Be more liberal reading EDIFACT message reference number X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=e439e11ad3d4eec40013e46a96421e5f7e7d7b72;p=working%2FEvergreen.git 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 --- 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/,