From: Bill Erickson <berickxx@gmail.com>
Date: Mon, 15 Dec 2014 18:56:53 +0000 (-0500)
Subject: EDI avoid canceling backorder items (from bradley patch) -- part 2
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=2de6424381005fd17eec908f1cfe141711a81bc6;p=working%2FEvergreen.git

EDI avoid canceling backorder items (from bradley patch) -- part 2

Signed-off-by: Bill Erickson <berickxx@gmail.com>
---

diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Application/Acq/EDI.pm b/Open-ILS/src/perlmods/lib/OpenILS/Application/Acq/EDI.pm
index e0fc040277..5e4e2269c7 100644
--- a/Open-ILS/src/perlmods/lib/OpenILS/Application/Acq/EDI.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/Application/Acq/EDI.pm
@@ -724,6 +724,11 @@ sub process_parsed_msg {
                 $logger->info("EDI: LI $li_id -- $qty_count in transit");
                 next;
             }
+
+            if ($qty_code eq '83') {
+                $logger->info("EDI: LI $li_id -- backordered $qty_count");
+                next;
+            }
             # 84: urgent delivery
             # 118: quantity manifested
             # ...