Lines 485-491
sub _process_mappings {
Link Here
|
485 |
if (defined $options->{property}) { |
485 |
if (defined $options->{property}) { |
486 |
$_data = { |
486 |
$_data = { |
487 |
$options->{property} => $_data |
487 |
$options->{property} => $_data |
488 |
} |
488 |
} if $_data; |
489 |
} |
489 |
} |
490 |
if (defined $options->{nonfiling_characters_indicator}) { |
490 |
if (defined $options->{nonfiling_characters_indicator}) { |
491 |
my $nonfiling_chars = $meta->{field}->indicator($options->{nonfiling_characters_indicator}); |
491 |
my $nonfiling_chars = $meta->{field}->indicator($options->{nonfiling_characters_indicator}); |
Lines 494-500
sub _process_mappings {
Link Here
|
494 |
$_data = substr $_data, $nonfiling_chars; |
494 |
$_data = substr $_data, $nonfiling_chars; |
495 |
} |
495 |
} |
496 |
} |
496 |
} |
497 |
push @{$record_document->{$target}}, $_data; |
497 |
push @{$record_document->{$target}}, $_data if $_data; |
498 |
} |
498 |
} |
499 |
} |
499 |
} |
500 |
|
500 |
|
501 |
- |
|
|