Bug 35518: Tidy the moved blocks

This patch just tidies the moved blocks to get us past the QA script
check.

Signed-off-by: Martin Renvoize <martin.renvoize@ptfs-europe.com>
(cherry picked from commit b577b65670)
Signed-off-by: Fridolin Somers <fridolin.somers@biblibre.com>
(cherry picked from commit 1f182d45ab)
Signed-off-by: Frédéric Demians <f.demians@tamil.fr>
(cherry picked from commit d44a697788)
Signed-off-by: Aleisha Amohia <aleishaamohia@hotmail.com>
(cherry picked from commit 870c18a6545092de9fd50c187f68dd0d6574b56b)
This commit is contained in:
Martin Renvoize 2024-02-08 15:55:43 +00:00 committed by Wainui Witika-Park
parent 63b4195e20
commit 808c187408
1 changed files with 6 additions and 6 deletions

View File

@ -63,8 +63,8 @@ use List::MoreUtils qw( uniq );
my $query = CGI->new;
my $borrowernumber = $query->param('borrowernumber');
my $barcodes = [];
my $barcode = $query->param('barcode');
my $barcodes = [];
my $barcode = $query->param('barcode');
# Barcode given by user could be '0'
if ( $barcode || ( defined($barcode) && $barcode eq '0' ) ) {
@ -112,8 +112,8 @@ my ( $template, $loggedinuser, $cookie ) = get_template_and_user (
my $override_high_holds = $query->param('override_high_holds');
my $override_high_holds_tmp = $query->param('override_high_holds_tmp');
my $sessionID = $query->cookie("CGISESSID") ;
my $session = get_session($sessionID);
my $sessionID = $query->cookie("CGISESSID");
my $session = get_session($sessionID);
my $userenv = C4::Context->userenv;
my $branch = $userenv->{'branch'} // '';
@ -122,10 +122,10 @@ my $desk_id = $userenv->{"desk_id"} || '';
my $findborrower;
my $autoswitched;
if (C4::Context->preference("AutoSwitchPatron") && $barcode) {
if ( C4::Context->preference("AutoSwitchPatron") && $barcode ) {
my $new_barcode = $barcode;
Koha::Plugins->call( 'patron_barcode_transform', \$new_barcode );
if (Koha::Patrons->search( { cardnumber => $new_barcode} )->count() > 0) {
if ( Koha::Patrons->search( { cardnumber => $new_barcode } )->count() > 0 ) {
$findborrower = $barcode;
undef $barcode;
undef $borrowernumber;