| 
      
            Lines 324-330
          sub SetMarcUnicodeFlag {
      
      
        Link Here
      
     | 
  
        
          | 324 | 
              my $marc_record = shift;  | 
          324 | 
              my $marc_record = shift;  | 
        
        
          | 325 | 
              my $marc_flavour = shift; # || C4::Context->preference("marcflavour"); | 
          325 | 
              my $marc_flavour = shift; # || C4::Context->preference("marcflavour"); | 
        
        
          | 326 | 
           | 
          326 | 
           | 
        
            
              | 327 | 
                  $marc_record->encoding('UTF-8'); | 
               | 
               | 
            
        
          | 328 | 
              if ($marc_flavour eq 'MARC21' || $marc_flavour eq 'NORMARC') { | 
          327 | 
              if ($marc_flavour eq 'MARC21' || $marc_flavour eq 'NORMARC') { | 
        
        
          | 329 | 
                  my $leader = $marc_record->leader();  | 
          328 | 
                  my $leader = $marc_record->leader();  | 
        
        
          | 330 | 
                  substr($leader, 9, 1) = 'a';  | 
          329 | 
                  substr($leader, 9, 1) = 'a';  | 
        
            
              | 331 | 
              -   | 
               | 
               |