| Lines 3282-3299
          sub FillWithDefaultValues {
      
      
        Link Here | 
        
          | 3282 |                     my @fields = $record->field($tag); | 3282 |                     my @fields = $record->field($tag); | 
        
          | 3283 |                     if (@fields) { | 3283 |                     if (@fields) { | 
        
          | 3284 |                         for my $field (@fields) { | 3284 |                         for my $field (@fields) { | 
          
            
              | 3285 |                             unless ( defined $field->subfield($subfield) ) { | 3285 |                             if ( $field->is_control_field ) { | 
            
              |  |  | 3286 |                                 $field->update($defaultvalue) if not defined $field->data; | 
            
              | 3287 |                             } | 
            
              | 3288 |                             elsif ( not defined $field->subfield($subfield) ) { | 
        
          | 3286 |                                 $field->add_subfields( | 3289 |                                 $field->add_subfields( | 
        
          | 3287 |                                     $subfield => $defaultvalue ); | 3290 |                                     $subfield => $defaultvalue ); | 
        
          | 3288 |                             } | 3291 |                             } | 
        
          | 3289 |                         } | 3292 |                         } | 
        
          | 3290 |                     } | 3293 |                     } | 
        
          | 3291 |                     else { | 3294 |                     else { | 
          
            
              | 3292 |                         $record->insert_fields_ordered( | 3295 |                         if ( $tag < 10 ) { # is_control_field | 
            
              | 3293 |                             MARC::Field->new( | 3296 |                             $record->insert_fields_ordered( | 
            
              | 3294 |                                 $tag, '', '', $subfield => $defaultvalue | 3297 |                                 MARC::Field->new( | 
            
              | 3295 |                             ) | 3298 |                                     $tag, $defaultvalue | 
            
              | 3296 |                         ); | 3299 |                                 ) | 
            
              |  |  | 3300 |                             ); | 
            
              | 3301 |                         } | 
            
              | 3302 |                         else { | 
            
              | 3303 |                             $record->insert_fields_ordered( | 
            
              | 3304 |                                 MARC::Field->new( | 
            
              | 3305 |                                     $tag, '', '', $subfield => $defaultvalue | 
            
              | 3306 |                                 ) | 
            
              | 3307 |                             ); | 
            
              | 3308 |                         } | 
        
          | 3297 |                     } | 3309 |                     } | 
        
          | 3298 |                 } | 3310 |                 } | 
        
          | 3299 |             } | 3311 |             } |