From 67e1063ebd368b00d59a4a3519a5460a29b5ed22 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Joonas=20Kylm=C3=A4l=C3=A4?= Date: Thu, 4 Mar 2021 12:33:24 +0200 Subject: [PATCH] Bug 25690: (follow-up) Supress warning about unitialized string MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit This fixes the warning: Use of uninitialized value in string eq at /kohadevbox/koha/C4/Reserves.pm line 860. Signed-off-by: Joonas Kylmälä Signed-off-by: Jonathan Druart (cherry picked from commit 17479dd3f942098b165ba15a2739ad6949ae6dc4) Signed-off-by: Fridolin Somers --- C4/Reserves.pm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/C4/Reserves.pm b/C4/Reserves.pm index 08e283e107..f361b0712b 100644 --- a/C4/Reserves.pm +++ b/C4/Reserves.pm @@ -853,11 +853,11 @@ sub CheckReserves { my $priority = 10000000; foreach my $res (@reserves) { - if ($res->{'found'} eq 'W') { + if ($res->{'found'} && $res->{'found'} eq 'W') { return ( "Waiting", $res, \@reserves ); # Found it, it is waiting - } elsif ($res->{'found'} eq 'P') { + } elsif ($res->{'found'} && $res->{'found'} eq 'P') { return ( "Processing", $res, \@reserves ); # Found determinated hold, e. g. the transferred one - } elsif ($res->{'found'} eq 'T') { + } elsif ($res->{'found'} && $res->{'found'} eq 'T') { return ( "Transferred", $res, \@reserves ); # Found determinated hold, e. g. the transferred one } else { my $patron; -- 2.20.1