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