| 
      
            Lines 752-758
          sub checkauth {
      
      
        Link Here
      
     | 
  
        
          | 752 | 
                  my $s_userid = '';  | 
          752 | 
                  my $s_userid = '';  | 
        
        
          | 753 | 
                  if ($session) { | 
          753 | 
                  if ($session) { | 
        
        
          | 754 | 
                      $s_userid = $session->param('id') // ''; | 
          754 | 
                      $s_userid = $session->param('id') // ''; | 
        
          
            
              | 755 | 
                          C4::Context::set_userenv(  | 
              755 | 
                          C4::Context->set_userenv(  | 
            
        
          | 756 | 
                          $session->param('number'),       $s_userid, | 
          756 | 
                          $session->param('number'),       $s_userid, | 
        
        
          | 757 | 
                          $session->param('cardnumber'),   $session->param('firstname'), | 
          757 | 
                          $session->param('cardnumber'),   $session->param('firstname'), | 
        
        
          | 758 | 
                          $session->param('surname'),      $session->param('branch'), | 
          758 | 
                          $session->param('surname'),      $session->param('branch'), | 
        
  
    | 
      
            Lines 1084-1090
          sub checkauth {
      
      
        Link Here
      
     | 
  
        
          | 1084 | 
                          if ($persona) { | 
          1084 | 
                          if ($persona) { | 
        
        
          | 1085 | 
                              $session->param( 'persona', 1 );  | 
          1085 | 
                              $session->param( 'persona', 1 );  | 
        
        
          | 1086 | 
                          }  | 
          1086 | 
                          }  | 
        
          
            
              | 1087 | 
                              C4::Context::set_userenv(  | 
              1087 | 
                              C4::Context->set_userenv(  | 
            
        
          | 1088 | 
                              $session->param('number'),       $session->param('id'), | 
          1088 | 
                              $session->param('number'),       $session->param('id'), | 
        
        
          | 1089 | 
                              $session->param('cardnumber'),   $session->param('firstname'), | 
          1089 | 
                              $session->param('cardnumber'),   $session->param('firstname'), | 
        
        
          | 1090 | 
                              $session->param('surname'),      $session->param('branch'), | 
          1090 | 
                              $session->param('surname'),      $session->param('branch'), | 
        
  
    | 
      
            Lines 1332-1338
          sub check_api_auth {
      
      
        Link Here
      
     | 
  
        
          | 1332 | 
                  my $session = get_session($sessionID);  | 
          1332 | 
                  my $session = get_session($sessionID);  | 
        
        
          | 1333 | 
                  C4::Context->_new_userenv($sessionID);  | 
          1333 | 
                  C4::Context->_new_userenv($sessionID);  | 
        
        
          | 1334 | 
                  if ($session) { | 
          1334 | 
                  if ($session) { | 
        
          
            
              | 1335 | 
                          C4::Context::set_userenv(  | 
              1335 | 
                          C4::Context->set_userenv(  | 
            
        
          | 1336 | 
                          $session->param('number'),       $session->param('id'), | 
          1336 | 
                          $session->param('number'),       $session->param('id'), | 
        
        
          | 1337 | 
                          $session->param('cardnumber'),   $session->param('firstname'), | 
          1337 | 
                          $session->param('cardnumber'),   $session->param('firstname'), | 
        
        
          | 1338 | 
                          $session->param('surname'),      $session->param('branch'), | 
          1338 | 
                          $session->param('surname'),      $session->param('branch'), | 
        
  
    | 
      
            Lines 1504-1510
          sub check_api_auth {
      
      
        Link Here
      
     | 
  
        
          | 1504 | 
                          $session->param( 'ip',           $session->remote_addr() );  | 
          1504 | 
                          $session->param( 'ip',           $session->remote_addr() );  | 
        
        
          | 1505 | 
                          $session->param( 'lasttime',     time() );  | 
          1505 | 
                          $session->param( 'lasttime',     time() );  | 
        
        
          | 1506 | 
                      }  | 
          1506 | 
                      }  | 
        
          
            
              | 1507 | 
                          C4::Context::set_userenv(  | 
              1507 | 
                          C4::Context->set_userenv(  | 
            
        
          | 1508 | 
                          $session->param('number'),       $session->param('id'), | 
          1508 | 
                          $session->param('number'),       $session->param('id'), | 
        
        
          | 1509 | 
                          $session->param('cardnumber'),   $session->param('firstname'), | 
          1509 | 
                          $session->param('cardnumber'),   $session->param('firstname'), | 
        
        
          | 1510 | 
                          $session->param('surname'),      $session->param('branch'), | 
          1510 | 
                          $session->param('surname'),      $session->param('branch'), | 
        
  
    | 
      
            Lines 1585-1591
          sub check_cookie_auth {
      
      
        Link Here
      
     | 
  
        
          | 1585 | 
              my $session   = get_session($sessionID);  | 
          1585 | 
              my $session   = get_session($sessionID);  | 
        
        
          | 1586 | 
              C4::Context->_new_userenv($sessionID);  | 
          1586 | 
              C4::Context->_new_userenv($sessionID);  | 
        
        
          | 1587 | 
              if ($session) { | 
          1587 | 
              if ($session) { | 
        
          
            
              | 1588 | 
                      C4::Context::set_userenv(  | 
              1588 | 
                      C4::Context->set_userenv(  | 
            
        
          | 1589 | 
                      $session->param('number'),       $session->param('id'), | 
          1589 | 
                      $session->param('number'),       $session->param('id'), | 
        
        
          | 1590 | 
                      $session->param('cardnumber'),   $session->param('firstname'), | 
          1590 | 
                      $session->param('cardnumber'),   $session->param('firstname'), | 
        
        
          | 1591 | 
                      $session->param('surname'),      $session->param('branch'), | 
          1591 | 
                      $session->param('surname'),      $session->param('branch'), | 
        
  
    | 
      
            Lines 1732-1766
          sub checkpw_internal {
      
      
        Link Here
      
     | 
  
        
          | 1732 | 
           | 
          1732 | 
           | 
        
        
          | 1733 | 
              my $sth =  | 
          1733 | 
              my $sth =  | 
        
        
          | 1734 | 
                $dbh->prepare(  | 
          1734 | 
                $dbh->prepare(  | 
        
          
            
              | 1735 | 
                      "select password,cardnumber,borrowernumber,userid,firstname,surname,branchcode,flags from borrowers where userid=?"  | 
              1735 | 
                      "select password,cardnumber,borrowernumber,userid,firstname,surname,borrowers.branchcode,branches.branchname,flags from borrowers join branches on borrowers.branchcode=branches.branchcode where userid=?"  | 
            
        
          | 1736 | 
                );  | 
          1736 | 
                );  | 
        
        
          | 1737 | 
              $sth->execute($userid);  | 
          1737 | 
              $sth->execute($userid);  | 
        
        
          | 1738 | 
              if ( $sth->rows ) { | 
          1738 | 
              if ( $sth->rows ) { | 
        
        
          | 1739 | 
                  my ( $stored_hash, $cardnumber, $borrowernumber, $userid, $firstname,  | 
          1739 | 
                  my ( $stored_hash, $cardnumber, $borrowernumber, $userid, $firstname,  | 
        
          
            
              | 1740 | 
                          $surname, $branchcode, $flags )  | 
              1740 | 
                          $surname, $branchcode, $branchname, $flags )  | 
            
        
          | 1741 | 
                    = $sth->fetchrow;  | 
          1741 | 
                    = $sth->fetchrow;  | 
        
        
          | 1742 | 
           | 
          1742 | 
           | 
        
        
          | 1743 | 
                  if ( checkpw_hash( $password, $stored_hash ) ) { | 
          1743 | 
                  if ( checkpw_hash( $password, $stored_hash ) ) { | 
        
        
          | 1744 | 
           | 
          1744 | 
           | 
        
        
          | 1745 | 
                      C4::Context->set_userenv( "$borrowernumber", $userid, $cardnumber,  | 
          1745 | 
                      C4::Context->set_userenv( "$borrowernumber", $userid, $cardnumber,  | 
        
          
            
              | 1746 | 
                              $firstname, $surname, $branchcode, $flags );  | 
              1746 | 
                              $firstname, $surname, $branchcode, $branchname, $flags );  | 
            
        
          | 1747 | 
                      return 1, $cardnumber, $userid;  | 
          1747 | 
                      return 1, $cardnumber, $userid;  | 
        
        
          | 1748 | 
                  }  | 
          1748 | 
                  }  | 
        
        
          | 1749 | 
              }  | 
          1749 | 
              }  | 
        
        
          | 1750 | 
              $sth =  | 
          1750 | 
              $sth =  | 
        
        
          | 1751 | 
                $dbh->prepare(  | 
          1751 | 
                $dbh->prepare(  | 
        
          
            
              | 1752 | 
                      "select password,cardnumber,borrowernumber,userid, firstname,surname,branchcode,flags from borrowers where cardnumber=?"  | 
              1752 | 
                      "select password,cardnumber,borrowernumber,userid,firstname,surname,borrowers.branchcode,branches.branchname,flags from borrowers join branches on borrowers.branchcode=branches.branchcode where cardnumber=?"  | 
            
        
          | 1753 | 
                );  | 
          1753 | 
                );  | 
        
        
          | 1754 | 
              $sth->execute($userid);  | 
          1754 | 
              $sth->execute($userid);  | 
        
        
          | 1755 | 
              if ( $sth->rows ) { | 
          1755 | 
              if ( $sth->rows ) { | 
        
        
          | 1756 | 
                  my ( $stored_hash, $cardnumber, $borrowernumber, $userid, $firstname,  | 
          1756 | 
                  my ( $stored_hash, $cardnumber, $borrowernumber, $userid, $firstname,  | 
        
          
            
              | 1757 | 
                          $surname, $branchcode, $flags )  | 
              1757 | 
                          $surname, $branchcode, $branchname, $flags )  | 
            
        
          | 1758 | 
                    = $sth->fetchrow;  | 
          1758 | 
                    = $sth->fetchrow;  | 
        
        
          | 1759 | 
           | 
          1759 | 
           | 
        
        
          | 1760 | 
                  if ( checkpw_hash( $password, $stored_hash ) ) { | 
          1760 | 
                  if ( checkpw_hash( $password, $stored_hash ) ) { | 
        
        
          | 1761 | 
           | 
          1761 | 
           | 
        
        
          | 1762 | 
                      C4::Context->set_userenv( $borrowernumber, $userid, $cardnumber,  | 
          1762 | 
                      C4::Context->set_userenv( $borrowernumber, $userid, $cardnumber,  | 
        
          
            
              | 1763 | 
                              $firstname, $surname, $branchcode, $flags );  | 
              1763 | 
                              $firstname, $surname, $branchcode, $branchname, $flags );  | 
            
        
          | 1764 | 
                      return 1, $cardnumber, $userid;  | 
          1764 | 
                      return 1, $cardnumber, $userid;  | 
        
        
          | 1765 | 
                  }  | 
          1765 | 
                  }  | 
        
        
          | 1766 | 
              }  | 
          1766 | 
              }  |