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, $input_db->dump ) ) { |
410 |
$log->error( "MFN $mfn validation errors:\n", join("\n", @errors) ) if (@errors); |
$log->error( "MFN $mfn validation error:\n", |
411 |
|
dump( $errors ) |
412 |
|
); |
413 |
|
} |
414 |
} |
} |
415 |
|
|
416 |
my $ds_config = dclone($db_config); |
my $ds_config = dclone($db_config); |
463 |
$total_rows++; |
$total_rows++; |
464 |
} |
} |
465 |
|
|
466 |
|
if ($validate && defined($validate->all_errors)) { |
467 |
|
my $validate_errors = $validate->all_errors; |
468 |
|
|
469 |
|
$log->info("validation errors:\n", dump( $validate_errors ) ); |
470 |
|
} |
471 |
|
|
472 |
$log->info("statistics of fields usage:\n", $input_db->stats) if ($stats); |
$log->info("statistics of fields usage:\n", $input_db->stats) if ($stats); |
473 |
|
|
474 |
# close MARC file |
# close MARC file |