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 e0fc040..5e4e226 100644 (file)
--- 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
             # ...