From 9c7b3fa23b78ed431902e52721d1b51b1ef7b073 Mon Sep 17 00:00:00 2001 From: Nick Clemens Date: Mon, 10 Feb 2020 18:19:07 +0000 Subject: [PATCH] Bug 24620: Close existing transfers when setting item to waiting This patch adds a clause in ModReserveAffect to check if there are existing transfers and close them when setting a hold to waiting To test: 1 - Set AutomaticItemReturn to Do 2 - Checkin an item from Library B at Library A 3 - Confirm item is in transfer (check the details page) 4 - Place a item level hold for pickup at library A 5 - Checkin the item at Library A 6 - Confirm the hold 7 - View the details page 8 - Note the item is in transit and waiting 9 - Apply patch 10 - Delete hold and repeat 11 - Confirm that transfer is closed when hold marked waiting Signed-off-by: Sally Signed-off-by: Stina Hallin Signed-off-by: Jonathan Druart --- C4/Reserves.pm | 12 ++++++++++++ 1 file changed, 12 insertions(+) diff --git a/C4/Reserves.pm b/C4/Reserves.pm index 08b16893da..6547817fab 100644 --- a/C4/Reserves.pm +++ b/C4/Reserves.pm @@ -1142,6 +1142,18 @@ sub ModReserveAffect { _koha_notify_reserve( $hold->reserve_id ) if ( !$transferToDo && !$already_on_shelf ); + if( !$transferToDo ){ + _koha_notify_reserve( $hold->reserve_id ) unless $already_on_shelf; + my $transfers = Koha::Item::Transfers->search({ + itemnumber => $itemnumber, + datearrived => undef + }); + while( my $transfer = $transfers->next ){ + $transfer->datearrived( DateTime->now( time_zone => C4::Context->tz() ) )->store; + }; + } + + _FixPriority( { biblionumber => $biblionumber } ); my $item = Koha::Items->find($itemnumber); if ( $item->location && $item->location eq 'CART' -- 2.20.1