Bug 18317: Perl tidy

Signed-off-by: David Nind <david@davidnind.com>
Signed-off-by: Kyle M Hall <kyle@bywatersolutions.com>
Signed-off-by: Martin Renvoize <martin.renvoize@ptfs-europe.com>
Signed-off-by: Katrin Fischer <katrin.fischer@bsz-bw.de>
This commit is contained in:
David Cook 2023-11-09 01:57:33 +00:00 committed by Katrin Fischer
parent 8c561d950f
commit 4d03c038e4
Signed by: kfischer
GPG key ID: 0EF6E2C03357A834
2 changed files with 10 additions and 6 deletions

View file

@ -20,7 +20,7 @@ use C4::SIP::ILS::Transaction::Hold;
use C4::SIP::ILS::Transaction::Renew;
use C4::SIP::ILS::Transaction::RenewAll;
use C4::Context; #BZ 18317
use C4::Context; #BZ 18317
my %supports = (
'magnetic media' => 1,
@ -162,9 +162,11 @@ sub checkout {
elsif ( !$item ) {
$circ->screen_msg("Invalid Item");
}
elsif ( $item->{borrowernumber}
&& ! C4::Context->preference('AllowItemsOnLoanCheckoutSIP') #BZ 18317
&& !_ci_cardnumber_cmp( $item->{borrowernumber}, $patron->borrowernumber ) )
elsif (
$item->{borrowernumber}
&& !C4::Context->preference('AllowItemsOnLoanCheckoutSIP') #BZ 18317
&& !_ci_cardnumber_cmp( $item->{borrowernumber}, $patron->borrowernumber )
)
{
$circ->screen_msg("Item checked out to another patron");
}

View file

@ -88,9 +88,11 @@ sub do_checkout {
{
$self->screen_msg("Item is on hold for another patron.");
$noerror = 0;
} elsif ($confirmation eq 'ISSUED_TO_ANOTHER' and C4::Context->preference("AllowItemsOnLoanCheckoutSIP")) { #BZ 18317
} elsif ( $confirmation eq 'ISSUED_TO_ANOTHER' and C4::Context->preference("AllowItemsOnLoanCheckoutSIP") )
{
next;
} elsif ($confirmation eq 'ISSUED_TO_ANOTHER' and ! C4::Context->preference("AllowItemsOnLoanCheckoutSIP")) { #BZ 18317
} elsif ( $confirmation eq 'ISSUED_TO_ANOTHER' and !C4::Context->preference("AllowItemsOnLoanCheckoutSIP") )
{
$self->screen_msg("Item already checked out to another patron. Please return item for check-in.");
$noerror = 0;
last;