|
Lines 123-133
unless ( $patronid ) {
Link Here
|
| 123 |
} |
123 |
} |
| 124 |
|
124 |
|
| 125 |
my $patron; |
125 |
my $patron; |
|
|
126 |
my $anonymous_patron = C4::Context->preference('AnonymousPatron'); |
| 126 |
if ( $patronid ) { |
127 |
if ( $patronid ) { |
| 127 |
Koha::Plugins->call( 'patron_barcode_transform', \$patronid ); |
128 |
Koha::Plugins->call( 'patron_barcode_transform', \$patronid ); |
| 128 |
$patron = Koha::Patrons->find( { cardnumber => $patronid } ); |
129 |
$patron = Koha::Patrons->find( { cardnumber => $patronid } ); |
|
|
130 |
# redirect to OPAC home if user is trying to log in as the anonymous patron |
| 131 |
if ( $patron && ( $patron->borrowernumber eq $anonymous_patron ) ) { |
| 132 |
print $query->redirect("/cgi-bin/koha/opac-main.pl"); |
| 133 |
exit; |
| 134 |
} |
| 129 |
} |
135 |
} |
| 130 |
|
136 |
|
|
|
137 |
|
| 131 |
undef $jwt unless $patron; |
138 |
undef $jwt unless $patron; |
| 132 |
|
139 |
|
| 133 |
my $branch = $issuer->{branchcode}; |
140 |
my $branch = $issuer->{branchcode}; |
| 134 |
- |
|
|