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