EDI avoid canceling backorder items (from bradley patch) -- part 2
authorBill Erickson <berickxx@gmail.com>
Mon, 15 Dec 2014 18:56:53 +0000 (13:56 -0500)
committerBill Erickson <berickxx@gmail.com>
Thu, 21 Mar 2019 19:46:23 +0000 (15:46 -0400)
Signed-off-by: Bill Erickson <berickxx@gmail.com>
Open-ILS/src/perlmods/lib/OpenILS/Application/Acq/EDI.pm

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