|
Lines 64-71
use List::MoreUtils qw( uniq );
Link Here
|
| 64 |
my $query = CGI->new; |
64 |
my $query = CGI->new; |
| 65 |
|
65 |
|
| 66 |
my $borrowernumber = $query->param('borrowernumber'); |
66 |
my $borrowernumber = $query->param('borrowernumber'); |
| 67 |
my $barcodes = []; |
67 |
my $barcodes = []; |
| 68 |
my $barcode = $query->param('barcode'); |
68 |
my $barcode = $query->param('barcode'); |
| 69 |
|
69 |
|
| 70 |
|
70 |
|
| 71 |
# Barcode given by user could be '0' |
71 |
# Barcode given by user could be '0' |
|
Lines 114-121
my ( $template, $loggedinuser, $cookie ) = get_template_and_user (
Link Here
|
| 114 |
my $override_high_holds = $query->param('override_high_holds'); |
114 |
my $override_high_holds = $query->param('override_high_holds'); |
| 115 |
my $override_high_holds_tmp = $query->param('override_high_holds_tmp'); |
115 |
my $override_high_holds_tmp = $query->param('override_high_holds_tmp'); |
| 116 |
|
116 |
|
| 117 |
my $sessionID = $query->cookie("CGISESSID") ; |
117 |
my $sessionID = $query->cookie("CGISESSID"); |
| 118 |
my $session = get_session($sessionID); |
118 |
my $session = get_session($sessionID); |
| 119 |
|
119 |
|
| 120 |
my $userenv = C4::Context->userenv; |
120 |
my $userenv = C4::Context->userenv; |
| 121 |
my $branch = $userenv->{'branch'} // ''; |
121 |
my $branch = $userenv->{'branch'} // ''; |
|
Lines 124-133
my $desk_id = $userenv->{"desk_id"} || '';
Link Here
|
| 124 |
my $findborrower; |
124 |
my $findborrower; |
| 125 |
my $autoswitched; |
125 |
my $autoswitched; |
| 126 |
|
126 |
|
| 127 |
if (C4::Context->preference("AutoSwitchPatron") && $barcode) { |
127 |
if ( C4::Context->preference("AutoSwitchPatron") && $barcode ) { |
| 128 |
my $new_barcode = $barcode; |
128 |
my $new_barcode = $barcode; |
| 129 |
Koha::Plugins->call( 'patron_barcode_transform', \$new_barcode ); |
129 |
Koha::Plugins->call( 'patron_barcode_transform', \$new_barcode ); |
| 130 |
if (Koha::Patrons->search( { cardnumber => $new_barcode} )->count() > 0) { |
130 |
if ( Koha::Patrons->search( { cardnumber => $new_barcode } )->count() > 0 ) { |
| 131 |
$findborrower = $barcode; |
131 |
$findborrower = $barcode; |
| 132 |
undef $barcode; |
132 |
undef $barcode; |
| 133 |
undef $borrowernumber; |
133 |
undef $borrowernumber; |
| 134 |
- |
|
|