| 
      
            Lines 682-688
          sub checkauth {
      
      
        Link Here
      
     | 
  
        
          | 682 | 
                      $userid   = $session->param('id'); | 
          682 | 
                      $userid   = $session->param('id'); | 
        
        
          | 683 | 
                      $sessiontype = $session->param('sessiontype') || ''; | 
          683 | 
                      $sessiontype = $session->param('sessiontype') || ''; | 
        
        
          | 684 | 
                  }  | 
          684 | 
                  }  | 
        
          
            
              | 685 | 
                      if ( ( ($query->param('koha_login_context')) && ($query->param('userid') ne $session->param('id')) ) | 
              685 | 
                      if ( ( $query->param('koha_login_context') && | 
            
            
               | 
               | 
              686 | 
                           ( $query->param('userid') ne ( $session->param('id') // '' ) ) ) | 
            
        
          | 686 | 
                    || ( $cas && $query->param('ticket') ) ) { | 
          687 | 
                    || ( $cas && $query->param('ticket') ) ) { | 
        
        
          | 687 | 
                      #if a user enters an id ne to the id in the current session, we need to log them in...  | 
          688 | 
                      #if a user enters an id ne to the id in the current session, we need to log them in...  | 
        
        
          | 688 | 
                      #first we need to clear the anonymous session...  | 
          689 | 
                      #first we need to clear the anonymous session...  | 
        
  
    | 
      
            Lines 793-802
          sub checkauth {
      
      
        Link Here
      
     | 
  
        
          | 793 | 
              }  | 
          794 | 
              }  | 
        
        
          | 794 | 
           | 
          795 | 
           | 
        
        
          | 795 | 
              elsif (  | 
          796 | 
              elsif (  | 
        
            
               | 
               | 
              797 | 
                          defined $pki_field && (  | 
            
        
          | 796 | 
                          ( $pki_field eq 'Common Name' && $ENV{'SSL_CLIENT_S_DN_CN'} ) | 
          798 | 
                          ( $pki_field eq 'Common Name' && $ENV{'SSL_CLIENT_S_DN_CN'} ) | 
        
        
          | 797 | 
                          || (   $pki_field eq 'emailAddress'  | 
          799 | 
                          || (   $pki_field eq 'emailAddress'  | 
        
        
          | 798 | 
                              && $ENV{'SSL_CLIENT_S_DN_Email'} ) | 
          800 | 
                              && $ENV{'SSL_CLIENT_S_DN_Email'} ) | 
        
          
            
              | 799 | 
                            )  | 
              801 | 
                            ) )  | 
            
        
          | 800 | 
                      { | 
          802 | 
                      { | 
        
        
          | 801 | 
                          my $value;  | 
          803 | 
                          my $value;  | 
        
        
          | 802 | 
                          if ( $pki_field eq 'Common Name' ) { | 
          804 | 
                          if ( $pki_field eq 'Common Name' ) { | 
        
            
              | 803 | 
              -   | 
               | 
               |