391 |
|
|
392 |
my $lookup_data = WebPAC::Normalize::_get_lookup(); |
my $lookup_data = WebPAC::Normalize::_get_lookup(); |
393 |
|
|
394 |
$log->debug("created following lookups: ", dump( $lookup_data )); |
if (defined( $lookup_data->{$database}->{$input_name} )) { |
395 |
|
$log->debug("created following lookups: ", dump( $lookup_data )); |
396 |
|
|
397 |
foreach my $key (keys %$lookup_data) { |
foreach my $key (keys %{ $lookup_data->{$database}->{$input_name} }) { |
398 |
$store->save_lookup( $database, $input_name, $key, $lookup_data->{$key} ); |
$store->save_lookup( $database, $input_name, $key, $lookup_data->{$database}->{$input_name}->{$key} ); |
399 |
|
} |
400 |
} |
} |
401 |
|
|
402 |
my $report_fh; |
my $report_fh; |