/[webpac2]/trunk/run.pl
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/run.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 516 by dpavlin, Tue May 16 15:23:12 2006 UTC revision 520 by dpavlin, Thu May 18 13:48:58 2006 UTC
# Line 202  while (my ($database, $db_config) = each Line 202  while (my ($database, $db_config) = each
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    
# Line 227  while (my ($database, $db_config) = each Line 227  while (my ($database, $db_config) = each
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                  );                  );
# Line 288  while (my ($database, $db_config) = each Line 288  while (my ($database, $db_config) = each
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(
Legend:
Removed from v.516  
changed lines
  Added in v.520
  ViewVC Help
Powered by ViewVC 1.1.26