| 
      
            Lines 331-336
          Get the record and tries to guess the adequate authtypecode from its content.
      
      
        Link Here
      
     | 
  
        
          | 331 | 
          sub GuessAuthTypeCode { | 
          331 | 
          sub GuessAuthTypeCode { | 
        
        
          | 332 | 
              my ($record, $heading_fields) = @_;  | 
          332 | 
              my ($record, $heading_fields) = @_;  | 
        
        
          | 333 | 
              return unless defined $record;  | 
          333 | 
              return unless defined $record;  | 
        
            
               | 
               | 
              334 | 
                  return '' if C4::Preferences('UseAuthority008AsAuthType'); | 
            
        
          | 334 | 
              $heading_fields //= { | 
          335 | 
              $heading_fields //= { | 
        
        
          | 335 | 
              "MARC21"=>{ | 
          336 | 
              "MARC21"=>{ | 
        
        
          | 336 | 
                  '100'=>{authtypecode=>'PERSO_NAME'}, | 
          337 | 
                  '100'=>{authtypecode=>'PERSO_NAME'}, | 
        
            
              | 337 | 
              -   | 
               | 
               |