Bug 30118: (QA follow-up) Fix Perl Critic issues
Signed-off-by: Kyle M Hall <kyle@bywatersolutions.com> Signed-off-by: Fridolin Somers <fridolin.somers@biblibre.com> Signed-off-by: Kyle M Hall <kyle@bywatersolutions.com>
This commit is contained in:
parent
41abb100c3
commit
61468ffe6d
|
|
@ -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;
|
||||
}
|
||||
|
|
|
|||
Loading…
Reference in New Issue