|
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 |
} |
| 1812 |
- |
|
|