396 |
my $lookup_data = WebPAC::Normalize::_get_lookup(); |
my $lookup_data = WebPAC::Normalize::_get_lookup(); |
397 |
|
|
398 |
if (defined( $lookup_data->{$database}->{$input_name} )) { |
if (defined( $lookup_data->{$database}->{$input_name} )) { |
399 |
$log->debug("created following lookups: ", dump( $lookup_data )); |
$log->debug("created following lookups: ", sub { dump( $lookup_data ) } ); |
400 |
|
|
401 |
foreach my $key (keys %{ $lookup_data->{$database}->{$input_name} }) { |
foreach my $key (keys %{ $lookup_data->{$database}->{$input_name} }) { |
402 |
$store->save_lookup( |
$store->save_lookup( |
477 |
|
|
478 |
|
|
479 |
if ($validate) { |
if ($validate) { |
480 |
if ( my $errors = $validate->validate_errors( $row, $input_db->dump ) ) { |
if ( my $errors = $validate->validate_rec( $row, $input_db->dump ) ) { |
481 |
$log->error( "MFN $mfn validation error:\n", |
$log->error( "MFN $mfn validation error:\n", |
482 |
$validate->report_error( $errors ) |
$validate->report_error( $errors ) |
483 |
); |
); |
500 |
}, |
}, |
501 |
); |
); |
502 |
|
|
503 |
$log->debug("ds = ",dump($ds)) if ($ds); |
$log->debug("ds = ", sub { dump($ds) }) if ($ds); |
504 |
|
|
505 |
$store->save_ds( |
$store->save_ds( |
506 |
database => $database, |
database => $database, |