| 
      
            Lines 315-323
          sub _handle_one_result {
      
      
        Link Here
      
     | 
  
        
          | 315 | 
              my $raw= $zoomrec->raw();  | 
          315 | 
              my $raw= $zoomrec->raw();  | 
        
        
          | 316 | 
              my $marcrecord;  | 
          316 | 
              my $marcrecord;  | 
        
        
          | 317 | 
              if( $servhref->{servertype} eq 'sru' ) { | 
          317 | 
              if( $servhref->{servertype} eq 'sru' ) { | 
        
          
            
              | 318 | 
                      $raw= MARC::Record->new_from_xml( $raw, $servhref->{encoding}, $servhref->{syntax} ); | 
              318 | 
                      $marcrecord= MARC::Record->new_from_xml( $raw, 'UTF-8',  | 
            
            
               | 
               | 
              319 | 
                          $servhref->{syntax} ); | 
            
            
              | 320 | 
                  } else { | 
            
            
              | 321 | 
                      ($marcrecord) = MarcToUTF8Record($raw, C4::Context->preference('marcflavour'), $servhref->{encoding} // "iso-5426" ); #ignores charset return values | 
            
        
          | 319 | 
              }  | 
          322 | 
              }  | 
        
            
              | 320 | 
                  ($marcrecord) = MarcToUTF8Record($raw, C4::Context->preference('marcflavour'), $servhref->{encoding} // "iso-5426" ); #ignores charset return values | 
               | 
               | 
            
        
          | 321 | 
              SetUTF8Flag($marcrecord);  | 
          323 | 
              SetUTF8Flag($marcrecord);  | 
        
        
          | 322 | 
              my $error;  | 
          324 | 
              my $error;  | 
        
        
          | 323 | 
              ( $marcrecord, $error ) = _do_xslt_proc($marcrecord, $servhref, $xslh);  | 
          325 | 
              ( $marcrecord, $error ) = _do_xslt_proc($marcrecord, $servhref, $xslh);  | 
        
  
    | 
      
            Lines 621-629
          sub Z3950SearchAuth {
      
      
        Link Here
      
     | 
  
        
          | 621 | 
           | 
          623 | 
           | 
        
        
          | 622 | 
                                      my ($charset_result, $charset_errors);  | 
          624 | 
                                      my ($charset_result, $charset_errors);  | 
        
        
          | 623 | 
                                      if( $servers[$k]->{servertype} eq 'sru' ) { | 
          625 | 
                                      if( $servers[$k]->{servertype} eq 'sru' ) { | 
        
          
            
              | 624 | 
                                              $marcdata = MARC::Record->new_from_xml( $marcdata, $encoding[$k], $servers[$k]->{syntax} ); | 
              626 | 
                                              $marcrecord = MARC::Record->new_from_xml( $marcdata, 'UTF-8', $servers[$k]->{syntax} ); | 
            
            
               | 
               | 
              627 | 
                                          } else { | 
            
            
              | 628 | 
                                              ( $marcrecord, $charset_result, $charset_errors ) = MarcToUTF8Record( $marcdata, $marc_type, $encoding[$k] );  | 
            
        
          | 625 | 
                                      }  | 
          629 | 
                                      }  | 
        
            
              | 626 | 
                                          ($marcrecord, $charset_result, $charset_errors)= MarcToUTF8Record($marcdata, $marc_type, $encoding[$k]);  | 
               | 
               | 
            
        
          | 627 | 
                                      my $heading;  | 
          630 | 
                                      my $heading;  | 
        
        
          | 628 | 
                                      my $heading_authtype_code;  | 
          631 | 
                                      my $heading_authtype_code;  | 
        
        
          | 629 | 
                                      $heading_authtype_code = GuessAuthTypeCode($marcrecord);  | 
          632 | 
                                      $heading_authtype_code = GuessAuthTypeCode($marcrecord);  | 
        
            
              | 630 | 
              -   | 
               | 
               |