135 |
if (@d) { |
if (@d) { |
136 |
$v->{$fld} = [ map { |
$v->{$fld} = [ map { |
137 |
my $sf = $_; |
my $sf = $_; |
138 |
if ( $sf =~ s/!(\*)?$/$1/ ) { |
if ( $sf =~ s/!// ) { |
139 |
$self->{must_exist_sf}->{ $fld }->{ $sf }++; |
$self->{must_exist_sf}->{ $fld }->{ $sf }++; |
140 |
}; |
}; |
141 |
$sf; |
$sf; |
273 |
# $errors->{dump} = $rec_dump if ($rec_dump); |
# $errors->{dump} = $rec_dump if ($rec_dump); |
274 |
} elsif (ref($v) ne 'HASH') { |
} elsif (ref($v) ne 'HASH') { |
275 |
$errors->{$f}->{missing_subfield} = join(",", @{ $r->{$f} }) . " required"; |
$errors->{$f}->{missing_subfield} = join(",", @{ $r->{$f} }) . " required"; |
276 |
|
$errors->{$f}->{dump} = $v; |
277 |
next; |
next; |
278 |
} else { |
} else { |
279 |
|
|
593 |
close($d); |
close($d); |
594 |
|
|
595 |
$log->info("new delimiters templates saved to $path"); |
$log->info("new delimiters templates saved to $path"); |
596 |
|
|
597 |
|
return 1; |
598 |
} |
} |
599 |
|
|
600 |
=head1 AUTHOR |
=head1 AUTHOR |