From: Lebbeous Fogle-Weekley <lebbeous@esilibrary.com>
Date: Wed, 23 Jan 2013 18:07:33 +0000 (-0500)
Subject: Acq: EDIReader bugfix - Process misc charges better
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=526e959bf8c184b6649c7104d1f9770bae704f0d;p=working%2FEvergreen.git

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 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());
 }