Lines 1764-1777
sub checkpw {
Link Here
|
1764 |
my $patron = Koha::Patrons->find({ userid => $userid }); |
1764 |
my $patron = Koha::Patrons->find({ userid => $userid }); |
1765 |
|
1765 |
|
1766 |
if ( $patron and $patron->account_locked ) { |
1766 |
if ( $patron and $patron->account_locked ) { |
1767 |
@return = (0); |
1767 |
@return = (); |
1768 |
} elsif ($ldap) { |
1768 |
} elsif ($ldap) { |
1769 |
$debug and print STDERR "## checkpw - checking LDAP\n"; |
1769 |
$debug and print STDERR "## checkpw - checking LDAP\n"; |
1770 |
my ( $retval, $retcard, $retuserid ) = checkpw_ldap(@_); # EXTERNAL AUTH |
1770 |
my ( $retval, $retcard, $retuserid ) = checkpw_ldap(@_); # EXTERNAL AUTH |
1771 |
if ( $retval ) { |
1771 |
if ( $retval ) { |
1772 |
@return = ( $retval, $retcard, $retuserid ); |
1772 |
@return = ( $retval, $retcard, $retuserid ); |
1773 |
} else { |
1773 |
} else { |
1774 |
@return = (0); |
1774 |
@return = (); |
1775 |
} |
1775 |
} |
1776 |
|
1776 |
|
1777 |
} elsif ( $cas && $query && $query->param('ticket') ) { |
1777 |
} elsif ( $cas && $query && $query->param('ticket') ) { |
Lines 1784-1790
sub checkpw {
Link Here
|
1784 |
if ( $retval ) { |
1784 |
if ( $retval ) { |
1785 |
@return = ( $retval, $retcard, $retuserid ); |
1785 |
@return = ( $retval, $retcard, $retuserid ); |
1786 |
} else { |
1786 |
} else { |
1787 |
@return = (0); |
1787 |
@return = (); |
1788 |
} |
1788 |
} |
1789 |
} |
1789 |
} |
1790 |
|
1790 |
|
Lines 1805-1811
sub checkpw {
Link Here
|
1805 |
if ( $retval ) { |
1805 |
if ( $retval ) { |
1806 |
@return = ( $retval, $retcard, $retuserid ); |
1806 |
@return = ( $retval, $retcard, $retuserid ); |
1807 |
} else { |
1807 |
} else { |
1808 |
@return = (0); |
1808 |
@return = (); |
1809 |
} |
1809 |
} |
1810 |
} |
1810 |
} |
1811 |
} |
1811 |
} |