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 <lebbeous@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 7096883..05dcfa2 100644 (file)
--- 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());
 }