From 983c2ff6785671dcb67646a2731a5e050c393d86 Mon Sep 17 00:00:00 2001 From: Lucas Gass Date: Wed, 12 Mar 2025 21:34:09 +0000 Subject: [PATCH] Bug 31698: Implement move_hold_item in request.pl --- reserve/request.pl | 15 +++++++++++++++ 1 file changed, 15 insertions(+) diff --git a/reserve/request.pl b/reserve/request.pl index c5e354aa7d2..c56c2287b79 100755 --- a/reserve/request.pl +++ b/reserve/request.pl @@ -44,6 +44,7 @@ use C4::Search qw( enabled_staff_search_views ); use Koha::Biblios; use Koha::Checkouts; use Koha::Holds; +use Koha::Hold; use Koha::CirculationRules; use Koha::Items; use Koha::ItemTypes; @@ -109,6 +110,20 @@ if ( $op eq 'cud-move' ) { $next_priority, $first_priority, $last_priority ); } +} elsif ( $op eq 'cud-move_hold_item' ) { + my $new_itemnumber = $input->param('new_itemnumber'); + my $new_biblionumber = $input->param('new_biblionumber'); + my @hold_ids = $input->multi_param('hold_id'); + foreach my $hold_id (@hold_ids) { + my $hold = Koha::Holds->find($hold_id); + $hold->move_hold_item( + { + new_itemnumber => $new_itemnumber, + new_biblionumber => $new_biblionumber, + } + ); + } + } elsif ( $op eq 'cud-cancel' ) { my $reserve_id = $input->param('reserve_id'); my $cancellation_reason = $input->param("cancellation-reason"); -- 2.39.5