From 44bd8510a69b1a151b4915284723b49fc5263fab Mon Sep 17 00:00:00 2001 From: Martin Renvoize Date: Tue, 17 Apr 2018 17:16:58 +0100 Subject: [PATCH] Bug 20595: Add handling for LRP field in EDI. * EDI.pm - Add handling of the LRP EDI field to automatically add an item to a stockrotation rota. --- Koha/EDI.pm | 32 ++++++++++++++++++++++++++++++++ 1 file changed, 32 insertions(+) diff --git a/Koha/EDI.pm b/Koha/EDI.pm index fcf352c6f8..086f1e4b43 100644 --- a/Koha/EDI.pm +++ b/Koha/EDI.pm @@ -776,6 +776,22 @@ sub quote_item { itemnumber => $itemnumber, } ); + + my $lrp = + $item->girfield( 'library_rotation_plan', $occurrence ); + if ($lrp) { + my $rota = + Koha::StockRotationRotas->find( { title => $lrp }, + { key => 'stockrotationrotas_title' } ); + if ($rota) { + $rota->add_item($itemnumber); + $logger->trace("Item added to rota $rota->id"); + } + else { + $logger->error( + "No rota found matching $lrp in orderline"); + } + } } ++$occurrence; @@ -827,6 +843,22 @@ sub quote_item { itemnumber => $itemnumber, } ); + + my $lrp = + $item->girfield( 'library_rotation_plan', $occurrence ); + if ($lrp) { + my $rota = + Koha::StockRotationRotas->find( { title => $lrp }, + { key => 'stockrotationrotas_title' } ); + if ($rota) { + $rota->add_item($itemnumber); + $logger->trace("Item added to rota $rota->id"); + } + else { + $logger->error( + "No rota found matching $lrp in orderline"); + } + } } ++$occurrence; -- 2.14.2