|
Lines 1781-1788
sub checkpw {
Link Here
|
| 1781 |
my $shib_login = $shib ? get_login_shib() : undef; |
1781 |
my $shib_login = $shib ? get_login_shib() : undef; |
| 1782 |
|
1782 |
|
| 1783 |
my @return; |
1783 |
my @return; |
| 1784 |
my $patron = Koha::Patrons->find({ userid => $userid }); |
1784 |
my $patron; |
| 1785 |
$patron = Koha::Patrons->find({ cardnumber => $userid }) unless $patron; |
1785 |
if ( defined $userid ){ |
|
|
1786 |
$patron = Koha::Patrons->find({ userid => $userid }); |
| 1787 |
$patron = Koha::Patrons->find({ cardnumber => $userid }) unless $patron; |
| 1788 |
} |
| 1786 |
my $check_internal_as_fallback = 0; |
1789 |
my $check_internal_as_fallback = 0; |
| 1787 |
my $passwd_ok = 0; |
1790 |
my $passwd_ok = 0; |
| 1788 |
# Note: checkpw_* routines returns: |
1791 |
# Note: checkpw_* routines returns: |
| 1789 |
- |
|
|