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