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 |
} |