From b9a482ff7e2b36f21931d201d18e894a7ebe0828 Mon Sep 17 00:00:00 2001 From: =?UTF-8?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=UTF-8 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ä --- C4/Reserves.pm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/C4/Reserves.pm b/C4/Reserves.pm index e2aed57a77..8efa426d12 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.11.0