| Lines 1781-1788
          sub checkpw {
      
      
        Link Here | 
        
          | 1781 |     my $shib_login = $shib ? get_login_shib() : undef; | 1781 |     my $shib_login = $shib ? get_login_shib() : undef; | 
        
          | 1782 |  | 1782 |  | 
        
          | 1783 |     my @return; | 1783 |     my @return; | 
          
            
              | 1784 |     my $patron = Koha::Patrons->find({ userid => $userid }); | 1784 |     my $patron; | 
            
              | 1785 |     $patron = Koha::Patrons->find({ cardnumber => $userid }) unless $patron; | 1785 |     if ( defined $userid ){ | 
            
              |  |  | 1786 |         $patron = Koha::Patrons->find({ userid => $userid }); | 
            
              | 1787 |         $patron = Koha::Patrons->find({ cardnumber => $userid }) unless $patron; | 
            
              | 1788 |     } | 
        
          | 1786 |     my $check_internal_as_fallback = 0; | 1789 |     my $check_internal_as_fallback = 0; | 
        
          | 1787 |     my $passwd_ok = 0; | 1790 |     my $passwd_ok = 0; | 
        
          | 1788 |     # Note: checkpw_* routines returns: | 1791 |     # Note: checkpw_* routines returns: | 
            
              | 1789 | -  |  |  |