From 61468ffe6d201cdb1257923d9fed575ffb5911cb Mon Sep 17 00:00:00 2001 From: Kyle M Hall Date: Wed, 30 Mar 2022 16:34:55 +0000 Subject: [PATCH] Bug 30118: (QA follow-up) Fix Perl Critic issues Signed-off-by: Kyle M Hall Signed-off-by: Fridolin Somers Signed-off-by: Kyle M Hall --- C4/SIP/ILS/Transaction/Checkin.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/C4/SIP/ILS/Transaction/Checkin.pm b/C4/SIP/ILS/Transaction/Checkin.pm index bba433415e..7274f82c35 100644 --- a/C4/SIP/ILS/Transaction/Checkin.pm +++ b/C4/SIP/ILS/Transaction/Checkin.pm @@ -89,7 +89,7 @@ sub do_checkin { my $reserved; my $lookahead = C4::Context->preference('ConfirmFutureHolds'); #number of days to look for future holds - my ($resfound, $resrec, undef) = C4::Reserves::CheckReserves( $item->itemnumber, undef, $lookahead ) unless ( $item->withdrawn ); + my ($resfound) = $item->withdrawn ? q{} : C4::Reserves::CheckReserves( $item->itemnumber, undef, $lookahead ); if ( $resfound eq "Reserved") { $reserved = 1; } -- 2.39.5