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