View | Details | Raw Unified | Return to bug 35518
Collapse All | Expand All

(-)a/circ/circulation.pl (-7 / +6 lines)
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
- 

Return to bug 35518