From f057fb1630fe7339539c6f4f0ff35e31be66e583 Mon Sep 17 00:00:00 2001 From: Bill Erickson Date: Thu, 11 Dec 2014 18:10:31 -0500 Subject: [PATCH] EDI avoid canceling backorder items (from bradley patch) Quoth Bradley: I did a quick and dirty hack to the perl file EDI.pm to get around this temporarily. (version 2.4.5) Normally, the EDI response read would interpret a 400 response as back-ordererd and assign a cancel reason(and cancel the line item and its copies). I just tried changing it to 401 instead, causing a 400 to be ignored. If there IS a legitimate 401 returned, that might cause trouble! And, I don't have a way in the client to see back ordered items, although our staff has other ways to determine that from the vendors. snippet changed (400 changed to 401): if ($stat = $li_hash->{order_status}) { $logger->info("EDI: lineitem has order status $stat"); if ($stat eq '200') { $reason_id = 1007; # not accepted } elsif ($stat eq '401') { $reason_id = 1283; # back-order } Signed-off-by: Bill Erickson --- Open-ILS/src/perlmods/lib/OpenILS/Application/Acq/EDI.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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 49feb96098..e0fc040277 100644 --- a/Open-ILS/src/perlmods/lib/OpenILS/Application/Acq/EDI.pm +++ b/Open-ILS/src/perlmods/lib/OpenILS/Application/Acq/EDI.pm @@ -788,7 +788,7 @@ sub process_parsed_msg { if ($stat eq '200') { $reason_id = 1007; # not accepted - } elsif ($stat eq '400') { + } elsif ($stat eq '401') { $reason_id = 1283; # back-order } -- 2.11.0