View | Details | Raw Unified | Return to bug 16282
Collapse All | Expand All

(-)a/C4/Auth.pm (-5 / +12 lines)
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
- 

Return to bug 16282