| 
      
            Lines 602-608
          sub fix_unimarc_100 {
      
      
        Link Here
      
     | 
  
        
          | 602 | 
              my $marc = shift;  | 
          602 | 
              my $marc = shift;  | 
        
        
          | 603 | 
           | 
          603 | 
           | 
        
        
          | 604 | 
              my $string;  | 
          604 | 
              my $string;  | 
        
          
            
              | 605 | 
                  if ( length($marc->subfield( 100, "a" )) == 35 ) { | 
              605 | 
                  if ( length($marc->subfield( 100, "a" )) == 36 ) { | 
            
        
          | 606 | 
                  $string = $marc->subfield( 100, "a" );  | 
          606 | 
                  $string = $marc->subfield( 100, "a" );  | 
        
        
          | 607 | 
                  my $f100 = $marc->field(100);  | 
          607 | 
                  my $f100 = $marc->field(100);  | 
        
        
          | 608 | 
                  $marc->delete_field($f100);  | 
          608 | 
                  $marc->delete_field($f100);  | 
        
  
    | 
      
            Lines 613-619
          sub fix_unimarc_100 {
      
      
        Link Here
      
     | 
  
        
          | 613 | 
                  $string = sprintf( "%-*s", 35, $string );  | 
          613 | 
                  $string = sprintf( "%-*s", 35, $string );  | 
        
        
          | 614 | 
              }  | 
          614 | 
              }  | 
        
        
          | 615 | 
              substr( $string, 22, 6, "frey50" );  | 
          615 | 
              substr( $string, 22, 6, "frey50" );  | 
        
          
            
              | 616 | 
                  unless ( length($marc->subfield( 100, "a" )) == 35 ) { | 
              616 | 
                  unless ( length($marc->subfield( 100, "a" )) == 36 ) { | 
            
        
          | 617 | 
                  $marc->delete_field($marc->field(100));  | 
          617 | 
                  $marc->delete_field($marc->field(100));  | 
        
        
          | 618 | 
                  $marc->insert_grouped_field(MARC::Field->new( 100, "", "", "a" => $string ));  | 
          618 | 
                  $marc->insert_grouped_field(MARC::Field->new( 100, "", "", "a" => $string ));  | 
        
        
          | 619 | 
              }  | 
          619 | 
              }  | 
        
            
              | 620 | 
              -   | 
               | 
               |