|
Lines 341-346
RECORD: while ( ) {
Link Here
|
| 341 |
push @subfields, map { ( $_->[0] =~ /[a-z]/ ? $_->[1] : () ) } $field->subfields(); |
341 |
push @subfields, map { ( $_->[0] =~ /[a-z]/ ? $_->[1] : () ) } $field->subfields(); |
| 342 |
} |
342 |
} |
| 343 |
$yamlhash->{$originalid}->{'subfields'} = \@subfields; |
343 |
$yamlhash->{$originalid}->{'subfields'} = \@subfields; |
|
|
344 |
$yamlhash->{$originalid}->{'updated'} = 0; |
| 344 |
} |
345 |
} |
| 345 |
next; |
346 |
next; |
| 346 |
} |
347 |
} |
|
Lines 424-429
RECORD: while ( ) {
Link Here
|
| 424 |
push @subfields, map { ( $_->[0] =~ /[a-z]/ ? $_->[1] : () ) } $field->subfields(); |
425 |
push @subfields, map { ( $_->[0] =~ /[a-z]/ ? $_->[1] : () ) } $field->subfields(); |
| 425 |
} |
426 |
} |
| 426 |
$yamlhash->{$originalid}->{'subfields'} = \@subfields; |
427 |
$yamlhash->{$originalid}->{'subfields'} = \@subfields; |
|
|
428 |
$yamlhash->{$originalid}->{'updated'} = 1; |
| 427 |
} |
429 |
} |
| 428 |
} |
430 |
} |
| 429 |
else { |
431 |
else { |
| 430 |
- |
|
|