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 <berick@esilibrary.com>

diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Utils/EDIReader.pm b/Open-ILS/src/perlmods/lib/OpenILS/Utils/EDIReader.pm
index bfa0a50..25f59ee 100644 (file)
--- 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());
 }