/[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 941 by dpavlin, Wed Oct 31 13:31:12 2007 UTC revision 956 by dpavlin, Fri Nov 2 10:54:42 2007 UTC
# Line 543  warn '## output = ',dump( $output ); Line 543  warn '## output = ',dump( $output );
543                                  next;   # validation doesn't create any output                                  next;   # validation doesn't create any output
544                          }                          }
545    
546                          my $ds = WebPAC::Normalize::data_structure(                          if ( my $ds = WebPAC::Normalize::data_structure(
547                                  row => $row,                                  row => $row,
548                                  rules => $rules,                                  rules => $rules,
549                                  lookup => $lookup_hash,                                  lookup => $lookup_hash,
# Line 557  warn '## output = ',dump( $output ); Line 557  warn '## output = ',dump( $output );
557                                                  id => $mfn,                                                  id => $mfn,
558                                          );                                          );
559                                  },                                  },
560                          );                          ) ) { # if
561    
562                          $log->debug("ds = ", sub { dump($ds) }) if ($ds);                                  $log->debug("ds = ", sub { dump($ds) });
563    
564                          $store->save_ds(                                  $store->save_ds(
565                                  database => $database,                                          database => $database,
566                                  input => $input_name,                                          input => $input_name,
567                                  id => $mfn,                                          id => $mfn,
568                                  ds => $ds,                                          ds => $ds,
569                          ) if ($ds && !$stats);                                  ) if !$stats;
570    
571                          $indexer->add(                                  $indexer->add(
572                                  id => "${input_name}/${mfn}",                                          id => "${input_name}/${mfn}",
573                                  ds => $ds,                                          ds => $ds,
574                                  type => $config->get($indexer_config)->{type},                                          type => $config->get($indexer_config)->{type},
575                          ) if ($indexer && $ds);                                  ) if $indexer;
576    
577                          if ($marc) {                                  if ($marc) {
578                                  my $i = 0;                                          my $i = 0;
579    
580                                  while (my $fields = WebPAC::Normalize::_get_marc_fields( fetch_next => 1 ) ) {                                          while (my $fields = WebPAC::Normalize::_get_marc_fields( fetch_next => 1 ) ) {
581                                          $marc->add(                                                  $marc->add(
582                                                  id => $mfn . ( $i ? "/$i" : '' ),                                                          id => $mfn . ( $i ? "/$i" : '' ),
583                                                  fields => $fields,                                                          fields => $fields,
584                                                  leader => WebPAC::Normalize::_get_marc_leader(),                                                          leader => WebPAC::Normalize::_get_marc_leader(),
585                                                  row => $row,                                                          row => $row,
586                                          );                                                  );
587                                          $i++;                                                  $i++;
588                                            }
589    
590                                            $log->info("Created $i instances of MFN $mfn\n") if ($i > 1);
591                                  }                                  }
592    
593                                  $log->info("Created $i instances of MFN $mfn\n") if ($i > 1);                                  foreach my $out ( @output_modules ) {
594                          }                                          $out->add( $mfn, $ds ) if $out->can('add');
595                                    }
596    
597                          foreach my $out ( @output_modules ) {                          } else {
598                                  $out->add( $mfn, $ds ) if $out->can('add');                                  $log->warn("record $pos didn't produce any output after normalization rules!");
599                          }                          }
600    
601                  }                  }
Legend:
Removed from v.941  
changed lines
  Added in v.956
  ViewVC Help
Powered by ViewVC 1.1.26