From 4b609d669ae1c26d7962f11c6c98f227d0fa9b73 Mon Sep 17 00:00:00 2001 From: Bill Erickson Date: Fri, 25 Jan 2013 10:54:23 -0500 Subject: [PATCH] EDI: accept all misc. invoice charge values Don't be picky about which types of invoice charges we extract. If the invoice has a charge, extract the value regardless of how its encoded. Signed-off-by: Bill Erickson --- Open-ILS/src/perlmods/lib/OpenILS/Utils/EDIReader.pm | 5 +---- 1 file changed, 1 insertion(+), 4 deletions(-) diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Utils/EDIReader.pm b/Open-ILS/src/perlmods/lib/OpenILS/Utils/EDIReader.pm index bfa0a501de..25f59eeebf 100644 --- a/Open-ILS/src/perlmods/lib/OpenILS/Utils/EDIReader.pm +++ b/Open-ILS/src/perlmods/lib/OpenILS/Utils/EDIReader.pm @@ -55,12 +55,9 @@ my %edi_li_quant_fields = ( my %edi_charge_fields = ( charge_type => qr/^ALC\+C\++([^\+]+)/, - charge_amount => qr/^MOA\+(?:8|131|304):([^:]+)/ + charge_amount => qr/^MOA\+\d+:([^:]+)/ ); -# 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