| 
      
            Lines 562-568
          sub fix_unimarc_100 {
      
      
        Link Here
      
     | 
  
        
          | 562 | 
              my $marc = shift;  | 
          562 | 
              my $marc = shift;  | 
        
        
          | 563 | 
           | 
          563 | 
           | 
        
        
          | 564 | 
              my $string;  | 
          564 | 
              my $string;  | 
        
          
            
              | 565 | 
                  if ( length($marc->subfield( 100, "a" )) == 35 ) { | 
              565 | 
                  if ( length($marc->subfield( 100, "a" )) == 36 ) { | 
            
        
          | 566 | 
                  $string = $marc->subfield( 100, "a" );  | 
          566 | 
                  $string = $marc->subfield( 100, "a" );  | 
        
        
          | 567 | 
                  my $f100 = $marc->field(100);  | 
          567 | 
                  my $f100 = $marc->field(100);  | 
        
        
          | 568 | 
                  $marc->delete_field($f100);  | 
          568 | 
                  $marc->delete_field($f100);  | 
        
  
    | 
      
            Lines 573-579
          sub fix_unimarc_100 {
      
      
        Link Here
      
     | 
  
        
          | 573 | 
                  $string = sprintf( "%-*s", 35, $string );  | 
          573 | 
                  $string = sprintf( "%-*s", 35, $string );  | 
        
        
          | 574 | 
              }  | 
          574 | 
              }  | 
        
        
          | 575 | 
              substr( $string, 22, 6, "frey50" );  | 
          575 | 
              substr( $string, 22, 6, "frey50" );  | 
        
          
            
              | 576 | 
                  unless ( length($marc->subfield( 100, "a" )) == 35 ) { | 
              576 | 
                  unless ( length($marc->subfield( 100, "a" )) == 36 ) { | 
            
        
          | 577 | 
                  $marc->delete_field($marc->field(100));  | 
          577 | 
                  $marc->delete_field($marc->field(100));  | 
        
        
          | 578 | 
                  $marc->insert_grouped_field(MARC::Field->new( 100, "", "", "a" => $string ));  | 
          578 | 
                  $marc->insert_grouped_field(MARC::Field->new( 100, "", "", "a" => $string ));  | 
        
        
          | 579 | 
              }  | 
          579 | 
              }  | 
        
            
              | 580 | 
              -   | 
               | 
               |