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

(-)a/C4/Auth.pm (-1 / +1 lines)
Lines 1222-1228 sub checkpw { Link Here
1222
        my ( $md5password, $cardnumber, $borrowernumber, $userid, $firstname,
1222
        my ( $md5password, $cardnumber, $borrowernumber, $userid, $firstname,
1223
            $surname, $branchcode, $flags )
1223
            $surname, $branchcode, $flags )
1224
          = $sth->fetchrow;
1224
          = $sth->fetchrow;
1225
        if ( md5_base64($password) eq $md5password ) {
1225
        if ( ( md5_base64($password) eq $md5password ) and ($md5password ne "!") ) {
1226
1226
1227
            C4::Context->set_userenv( "$borrowernumber", $userid, $cardnumber,
1227
            C4::Context->set_userenv( "$borrowernumber", $userid, $cardnumber,
1228
                $firstname, $surname, $branchcode, $flags );
1228
                $firstname, $surname, $branchcode, $flags );
(-)a/C4/Members.pm (-2 / +2 lines)
Lines 696-703 Returns the borrowernumber Link Here
696
sub AddMember {
696
sub AddMember {
697
    my (%data) = @_;
697
    my (%data) = @_;
698
    my $dbh = C4::Context->dbh;
698
    my $dbh = C4::Context->dbh;
699
    $data{'userid'} = '' unless $data{'password'};
699
700
    $data{'password'} = md5_base64( $data{'password'} ) if $data{'password'};
700
    $data{'password'} = md5_base64( $data{'password'} ) if $data{'password'};
701
    $data{'password'} = '!' if (not $data{'password'} and $data{'userid'});
701
    
702
    
702
    # WE SHOULD NEVER PASS THIS SUBROUTINE ANYTHING OTHER THAN ISO DATES
703
    # WE SHOULD NEVER PASS THIS SUBROUTINE ANYTHING OTHER THAN ISO DATES
703
    # IF YOU UNCOMMENT THESE LINES YOU BETTER HAVE A DARN COMPELLING REASON
704
    # IF YOU UNCOMMENT THESE LINES YOU BETTER HAVE A DARN COMPELLING REASON
704
- 

Return to bug 3674