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