/[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 507 by dpavlin, Mon May 15 13:15:01 2006 UTC revision 508 by dpavlin, Mon May 15 13:32:18 2006 UTC
# Line 52  path to YAML configuration file Line 52  path to YAML configuration file
52    
53  =item --force-set  =item --force-set
54    
55  force conversion C<normalize->path> in C<config.yml> from  force conversion C<< normalize->path >> in C<config.yml> from
56  C<.xml> to C<.pl>  C<.xml> to C<.pl>
57    
58  =item --stats  =item --stats
# Line 246  while (my ($database, $db_config) = each Line 246  while (my ($database, $db_config) = each
246                                  push @{ $row->{'000'} }, $pos;                                  push @{ $row->{'000'} }, $pos;
247                          }                          }
248    
249                          my $ds = $n ? $n->data_structure($row) :                                  
250                                  WebPAC::Normalize::Set::data_structure(                          my $ds;
251                            if ($n) {
252                                    $ds = $n->data_structure($row);
253                            } else {
254                                    $ds = WebPAC::Normalize::Set::data_structure(
255                                          row => $row,                                          row => $row,
256                                          rules => $rules,                                          rules => $rules,
257                                          lookup => $lookup->lookup_hash,                                          lookup => $lookup->lookup_hash,
258                                  );                                  );
259    
260                                    $db->save_ds(
261                                            id => $mfn,
262                                            ds => $ds,
263                                            prefix => $input->{name},
264                                    ) if ($ds);
265                            }
266    
267                          $indexer->add(                          $indexer->add(
268                                  id => $input->{name} . "/" . $mfn,                                  id => $input->{name} . "/" . $mfn,
269                                  ds => $ds,                                  ds => $ds,
Legend:
Removed from v.507  
changed lines
  Added in v.508
  ViewVC Help
Powered by ViewVC 1.1.26