| Lines 3269-3286
          sub FillWithDefaultValues {
      
      
        Link Here | 
        
          | 3269 |                     my @fields = $record->field($tag); | 3269 |                     my @fields = $record->field($tag); | 
        
          | 3270 |                     if (@fields) { | 3270 |                     if (@fields) { | 
        
          | 3271 |                         for my $field (@fields) { | 3271 |                         for my $field (@fields) { | 
          
            
              | 3272 |                             unless ( defined $field->subfield($subfield) ) { | 3272 |                             if ( $field->is_control_field ) { | 
            
              |  |  | 3273 |                                 $field->update($defaultvalue) if not defined $field->data; | 
            
              | 3274 |                             } | 
            
              | 3275 |                             elsif ( not defined $field->subfield($subfield) ) { | 
        
          | 3273 |                                 $field->add_subfields( | 3276 |                                 $field->add_subfields( | 
        
          | 3274 |                                     $subfield => $defaultvalue ); | 3277 |                                     $subfield => $defaultvalue ); | 
        
          | 3275 |                             } | 3278 |                             } | 
        
          | 3276 |                         } | 3279 |                         } | 
        
          | 3277 |                     } | 3280 |                     } | 
        
          | 3278 |                     else { | 3281 |                     else { | 
          
            
              | 3279 |                         $record->insert_fields_ordered( | 3282 |                         if ( $tag < 10 ) { # is_control_field | 
            
              | 3280 |                             MARC::Field->new( | 3283 |                             $record->insert_fields_ordered( | 
            
              | 3281 |                                 $tag, '', '', $subfield => $defaultvalue | 3284 |                                 MARC::Field->new( | 
            
              | 3282 |                             ) | 3285 |                                     $tag, $defaultvalue | 
            
              | 3283 |                         ); | 3286 |                                 ) | 
            
              |  |  | 3287 |                             ); | 
            
              | 3288 |                         } | 
            
              | 3289 |                         else { | 
            
              | 3290 |                             $record->insert_fields_ordered( | 
            
              | 3291 |                                 MARC::Field->new( | 
            
              | 3292 |                                     $tag, '', '', $subfield => $defaultvalue | 
            
              | 3293 |                                 ) | 
            
              | 3294 |                             ); | 
            
              | 3295 |                         } | 
        
          | 3284 |                     } | 3296 |                     } | 
        
          | 3285 |                 } | 3297 |                 } | 
        
          | 3286 |             } | 3298 |             } |