12 |
use WebPAC::Store 0.03; |
use WebPAC::Store 0.03; |
13 |
use WebPAC::Normalize 0.11; |
use WebPAC::Normalize 0.11; |
14 |
use WebPAC::Output::TT; |
use WebPAC::Output::TT; |
15 |
use WebPAC::Validate; |
use WebPAC::Validate 0.06; |
16 |
use WebPAC::Output::MARC; |
use WebPAC::Output::MARC; |
17 |
use YAML qw/LoadFile/; |
use YAML qw/LoadFile/; |
18 |
use Getopt::Long; |
use Getopt::Long; |
406 |
|
|
407 |
|
|
408 |
if ($validate) { |
if ($validate) { |
409 |
my @errors = $validate->validate_errors( $row ); |
if ( my $errors = $validate->validate_errors( $row ) ) { |
410 |
$log->error( "MFN $mfn validation errors:\n", join("\n", @errors) ) if (@errors); |
my $dump_record = defined($errors->{dump}->{record}); |
411 |
|
$log->error( "MFN $mfn\n", |
412 |
|
$dump_record ? $input_db->dump : '', |
413 |
|
"validation errors:\n", dump( $errors ) |
414 |
|
); |
415 |
|
} |
416 |
} |
} |
417 |
|
|
418 |
my $ds_config = dclone($db_config); |
my $ds_config = dclone($db_config); |
465 |
$total_rows++; |
$total_rows++; |
466 |
} |
} |
467 |
|
|
468 |
|
$log->info("validation errors:\n", dump( $validate->{errors} ) ) if ($validate && defined($validate->{errors})); |
469 |
|
|
470 |
$log->info("statistics of fields usage:\n", $input_db->stats) if ($stats); |
$log->info("statistics of fields usage:\n", $input_db->stats) if ($stats); |
471 |
|
|
472 |
# close MARC file |
# close MARC file |