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( |
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, |