383 |
next; |
next; |
384 |
} |
} |
385 |
|
|
386 |
next if ($only_input && ($input_name !~ m#$only_input#i && $input->{type} !~ m#$only_input#i)); |
next if defined $only_input && $input_name !~ m#$only_input#i; |
387 |
|
|
388 |
my $type = lc($input->{type}); |
my $type = lc($input->{type}); |
389 |
|
|
542 |
} |
} |
543 |
|
|
544 |
my $rules = $parser->normalize_rules($database,$input_name); |
my $rules = $parser->normalize_rules($database,$input_name); |
545 |
$log->logwarn("no normalize rules for $database/$input_name", $input_db->input_module->can('normalize') ? " using normalize from input module" : '') unless $rules; |
if ( ! $rules ) { |
546 |
|
$log->logwarn("no normalize rules for $database/$input_name", $input_db->input_module->can('normalize') ? " using normalize from input module" : ''); |
547 |
|
next; |
548 |
|
} |
549 |
|
|
550 |
$log->debug("parsed normalize rules:\n$rules"); |
$log->debug("parsed normalize rules:\n$rules"); |
551 |
|
|
623 |
|
|
624 |
if ($rules) { |
if ($rules) { |
625 |
|
|
626 |
my $ds = WebPAC::Normalize::data_structure( |
$ds = WebPAC::Normalize::data_structure( |
627 |
row => $row, |
row => $row, |
628 |
rules => $rules, |
rules => $rules, |
629 |
lookup => $lookup_hash, |
lookup => $lookup_hash, |