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