202 |
|
|
203 |
my $lookup = new WebPAC::Lookup( |
my $lookup = new WebPAC::Lookup( |
204 |
lookup_file => $input->{lookup}, |
lookup_file => $input->{lookup}, |
205 |
); |
) if ($input->{lookup}); |
206 |
|
|
207 |
my $input_module = $config->{webpac}->{inputs}->{$type}; |
my $input_module = $config->{webpac}->{inputs}->{$type}; |
208 |
|
|
227 |
my $n = new WebPAC::Normalize::XML( |
my $n = new WebPAC::Normalize::XML( |
228 |
# filter => { 'foo' => sub { shift } }, |
# filter => { 'foo' => sub { shift } }, |
229 |
db => $db, |
db => $db, |
230 |
lookup_regex => $lookup->regex, |
lookup_regex => $lookup ? $lookup->regex : undef, |
231 |
lookup => $lookup, |
lookup => $lookup, |
232 |
prefix => $input->{name}, |
prefix => $input->{name}, |
233 |
); |
); |
288 |
$ds = WebPAC::Normalize::Set::data_structure( |
$ds = WebPAC::Normalize::Set::data_structure( |
289 |
row => $row, |
row => $row, |
290 |
rules => $rules, |
rules => $rules, |
291 |
lookup => $lookup->lookup_hash, |
lookup => $lookup ? $lookup->lookup_hash : undef, |
292 |
); |
); |
293 |
|
|
294 |
$db->save_ds( |
$db->save_ds( |