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 |