| 
      
            Lines 324-329
          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'); | 
            
        
          | 327 | 
              if ($marc_flavour eq 'MARC21' || $marc_flavour eq 'NORMARC') { | 
          328 | 
              if ($marc_flavour eq 'MARC21' || $marc_flavour eq 'NORMARC') { | 
        
        
          | 328 | 
                  my $leader = $marc_record->leader();  | 
          329 | 
                  my $leader = $marc_record->leader();  | 
        
        
          | 329 | 
                  substr($leader, 9, 1) = 'a';  | 
          330 | 
                  substr($leader, 9, 1) = 'a';  | 
        
  
    | 
      
            Lines 352-357
          sub SetMarcUnicodeFlag {
      
      
        Link Here
      
     | 
  
        
          | 352 | 
                      $marc_record->insert_grouped_field(   | 
          353 | 
                      $marc_record->insert_grouped_field(   | 
        
        
          | 353 | 
                          MARC::Field->new( 100, '', '', "a" => $string ) );   | 
          354 | 
                          MARC::Field->new( 100, '', '', "a" => $string ) );   | 
        
        
          | 354 | 
                  }  | 
          355 | 
                  }  | 
        
            
               | 
               | 
              356 | 
               | 
            
            
              | 357 | 
                      my $leader = $marc_record->leader();  | 
            
            
              | 358 | 
                      substr($leader, 9, 1) = ' ';  | 
            
            
              | 359 | 
                      $marc_record->leader($leader);  | 
            
            
              | 360 | 
               | 
            
        
          | 355 | 
          		$debug && warn "encodage: ", substr( $marc_record->subfield(100, 'a'), $encodingposition, 3 );  | 
          361 | 
          		$debug && warn "encodage: ", substr( $marc_record->subfield(100, 'a'), $encodingposition, 3 );  | 
        
        
          | 356 | 
              } else { | 
          362 | 
              } else { | 
        
        
          | 357 | 
                  warn "Unrecognized marcflavour: $marc_flavour";  | 
          363 | 
                  warn "Unrecognized marcflavour: $marc_flavour";  | 
        
            
              | 358 | 
              -   | 
               | 
               |