Lines 1790-1801
sub checkpw_internal {
Link Here
|
1790 |
return 0; |
1790 |
return 0; |
1791 |
} |
1791 |
} |
1792 |
} |
1792 |
} |
1793 |
|
1793 |
my $sth; |
1794 |
my $sth = |
1794 |
if ( C4::Context->preference('UsernamesCaseSensitive') ){ |
|
|
1795 |
# This query does a case sensitive query, but it first does a insensitive one so that the index can still be used |
1796 |
# This will mean we don't get a nasty performance hit |
1797 |
$sth = $dbh->prepare("SELECT * FROM (SELECT password,cardnumber,borrowernumber,userid,firstname,surname,borrowers.branchcode,branches.branchname,flags FROM borrowers JOIN branches ON borrowers.branchcode=branches.branchcode WHERE userid= ?) AS firstpass WHERE BINARY userid = ?"); |
1798 |
$sth->execute($userid,$userid); |
1799 |
} |
1800 |
else { |
1801 |
$sth = |
1795 |
$dbh->prepare( |
1802 |
$dbh->prepare( |
1796 |
"select password,cardnumber,borrowernumber,userid,firstname,surname,borrowers.branchcode,branches.branchname,flags from borrowers join branches on borrowers.branchcode=branches.branchcode where userid=?" |
1803 |
"SELECT password,cardnumber,borrowernumber,userid,firstname,surname,borrowers.branchcode,branches.branchname,flags FROM borrowers JOIN branches ON borrowers.branchcode=branches.branchcode WHERE userid=?" |
1797 |
); |
1804 |
); |
1798 |
$sth->execute($userid); |
1805 |
$sth->execute($userid); |
|
|
1806 |
} |
1799 |
if ( $sth->rows ) { |
1807 |
if ( $sth->rows ) { |
1800 |
my ( $stored_hash, $cardnumber, $borrowernumber, $userid, $firstname, |
1808 |
my ( $stored_hash, $cardnumber, $borrowernumber, $userid, $firstname, |
1801 |
$surname, $branchcode, $branchname, $flags ) |
1809 |
$surname, $branchcode, $branchname, $flags ) |
1802 |
- |
|
|