|
Lines 497-503
sub _process_mappings {
Link Here
|
| 497 |
next unless @{$values}; |
497 |
next unless @{$values}; |
| 498 |
|
498 |
|
| 499 |
if (defined $options->{property}) { |
499 |
if (defined $options->{property}) { |
| 500 |
$values = [ map { { $options->{property} => $_ } } @{$values} ]; |
500 |
$values = [ map { { $options->{property} => $_ } if $_} @{$values} ]; |
| 501 |
} |
501 |
} |
| 502 |
if (defined $options->{nonfiling_characters_indicator}) { |
502 |
if (defined $options->{nonfiling_characters_indicator}) { |
| 503 |
my $nonfiling_chars = $meta->{field}->indicator($options->{nonfiling_characters_indicator}); |
503 |
my $nonfiling_chars = $meta->{field}->indicator($options->{nonfiling_characters_indicator}); |
|
Lines 507-512
sub _process_mappings {
Link Here
|
| 507 |
$values->[0] = substr $values->[0], $nonfiling_chars; |
507 |
$values->[0] = substr $values->[0], $nonfiling_chars; |
| 508 |
} |
508 |
} |
| 509 |
|
509 |
|
|
|
510 |
$values = [ grep(!/^$/, @{$values}) ]; |
| 511 |
|
| 510 |
$record_document->{$target} //= []; |
512 |
$record_document->{$target} //= []; |
| 511 |
push @{$record_document->{$target}}, @{$values}; |
513 |
push @{$record_document->{$target}}, @{$values}; |
| 512 |
} |
514 |
} |
| 513 |
- |
|
|