|
Lines 912-918
sub checkauth {
Link Here
|
| 912 |
{ |
912 |
{ |
| 913 |
my $patron = Koha::Patrons->find( { userid => $userid } ); |
913 |
my $patron = Koha::Patrons->find( { userid => $userid } ); |
| 914 |
my $auth = Koha::Auth::TwoFactorAuth->new( { patron => $patron } ); |
914 |
my $auth = Koha::Auth::TwoFactorAuth->new( { patron => $patron } ); |
| 915 |
my $verified = $auth->verify($otp_token); |
915 |
my $verified = $auth->verify($otp_token, 1); |
| 916 |
$auth->clear; |
916 |
$auth->clear; |
| 917 |
if ( $verified ) { |
917 |
if ( $verified ) { |
| 918 |
# The token is correct, the user is fully logged in! |
918 |
# The token is correct, the user is fully logged in! |
| 919 |
- |
|
|