From 526e959bf8c184b6649c7104d1f9770bae704f0d Mon Sep 17 00:00:00 2001 From: Lebbeous Fogle-Weekley Date: Wed, 23 Jan 2013 13:07:33 -0500 Subject: [PATCH] Acq: EDIReader bugfix - Process misc charges better MOA+304 seems to be an encoding peculiar to Ingram for processing fees. Signed-off-by: Lebbeous Fogle-Weekley --- Open-ILS/src/perlmods/lib/OpenILS/Utils/EDIReader.pm | 5 ++++- 1 file changed, 4 insertions(+), 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 7096883c68..05dcfa2801 100644 --- a/Open-ILS/src/perlmods/lib/OpenILS/Utils/EDIReader.pm +++ b/Open-ILS/src/perlmods/lib/OpenILS/Utils/EDIReader.pm @@ -55,9 +55,12 @@ my %edi_li_quant_fields = ( my %edi_charge_fields = ( charge_type => qr/^ALC\+C\++([^\+]+)/, - charge_amount => qr/^MOA\+(8|131):([^:]+)/ + charge_amount => qr/^MOA\+(?:8|131|304):([^:]+)/ ); +# XXX can't help but wonder whether this might be ok in %edi_charge_fields: +# charge_amount => qr/^MOA\+(\d+):([^:]+)/ + sub new { return bless({}, shift()); } -- 2.11.0