|
Lines 294-299
RECORD: while ( ) {
Link Here
|
| 294 |
push @subfields, map { ( $_->[0] =~ /[a-z]/ ? $_->[1] : () ) } $field->subfields(); |
294 |
push @subfields, map { ( $_->[0] =~ /[a-z]/ ? $_->[1] : () ) } $field->subfields(); |
| 295 |
} |
295 |
} |
| 296 |
$yamlhash->{$originalid}->{'subfields'} = \@subfields; |
296 |
$yamlhash->{$originalid}->{'subfields'} = \@subfields; |
|
|
297 |
$yamlhash->{$originalid}->{'updated'} = 0; |
| 297 |
} |
298 |
} |
| 298 |
next; |
299 |
next; |
| 299 |
} |
300 |
} |
|
Lines 377-382
RECORD: while ( ) {
Link Here
|
| 377 |
push @subfields, map { ( $_->[0] =~ /[a-z]/ ? $_->[1] : () ) } $field->subfields(); |
378 |
push @subfields, map { ( $_->[0] =~ /[a-z]/ ? $_->[1] : () ) } $field->subfields(); |
| 378 |
} |
379 |
} |
| 379 |
$yamlhash->{$originalid}->{'subfields'} = \@subfields; |
380 |
$yamlhash->{$originalid}->{'subfields'} = \@subfields; |
|
|
381 |
$yamlhash->{$originalid}->{'updated'} = 1; |
| 380 |
} |
382 |
} |
| 381 |
} |
383 |
} |
| 382 |
else { |
384 |
else { |
| 383 |
- |
|
|