From 8313da3acab6c084963564921fc9cbb2b35fc729 Mon Sep 17 00:00:00 2001
From: Baptiste Wojtkowski <baptiste.wojtkowski@biblibre.com>
Date: Fri, 25 Jul 2025 12:51:19 +0000
Subject: [PATCH] Bug 40515: Fix regexp for cud-mark_as_lost_and_notify

Signed-off-by: David Flater <flaterdavid@gmail.com>
Signed-off-by: Marcel de Rooy <m.de.rooy@rijksmuseum.nl>
Signed-off-by: Lucas Gass <lucas@bywatersolutions.com>
(cherry picked from commit 6cfac72f7ed35092ef6f27ff8ce2ac6ac23f105d)
Signed-off-by: Paul Derscheid <paul.derscheid@lmscloud.de>
(cherry picked from commit afb9c9c531ce63073fcfe420f055350e7f6b5d64)
Signed-off-by: Fridolin Somers <fridolin.somers@biblibre.com>
---
 circ/pendingreserves.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/circ/pendingreserves.pl b/circ/pendingreserves.pl
index b85cf5c90e..aa461d8e5a 100755
--- a/circ/pendingreserves.pl
+++ b/circ/pendingreserves.pl
@@ -58,7 +58,7 @@ if ( $op eq 'cud-cancel_reserve' and $reserve_id ) {
         $hold->cancel({ cancellation_reason => $cancellation_reason });
         push @messages, { type => 'message', code => 'hold_cancelled' };
     }
-} elsif ( $op =~ m|^mark_as_lost| ) {
+} elsif ( $op eq 'cud-mark_as_lost' or $op eq 'cud-mark_as_lost_and_notify' ) {
     my $hold = Koha::Holds->find( $reserve_id );
     die "wrong reserve_id" unless $hold; # This is a bit rude, but we are not supposed to get a wrong reserve_id
     my $item = $hold->item;