/[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 578 by dpavlin, Tue Jul 4 10:34:15 2006 UTC revision 580 by dpavlin, Tue Jul 4 11:36:03 2006 UTC
# Line 314  while (my ($database, $db_config) = each Line 314  while (my ($database, $db_config) = each
314                                          type => $config->{$use_indexer}->{type},                                          type => $config->{$use_indexer}->{type},
315                                  ) if ($indexer && $ds);                                  ) if ($indexer && $ds);
316    
317                                  $marc->add(                                  if ($marc) {
318                                          id => $mfn,                                          my $i = 0;
319                                          fields => [ WebPAC::Normalize::_get_marc_fields() ],  
320                                          leader => WebPAC::Normalize::marc_leader(),                                          while (my $fields = WebPAC::Normalize::_get_marc_fields( fetch_next => 1 ) ) {
321                                          row => $row,                                                  $marc->add(
322                                  ) if ($marc);                                                          id => $mfn . ( $i ? "/$i" : '' ),
323                                                            fields => $fields,
324                                                            leader => WebPAC::Normalize::marc_leader(),
325                                                            row => $row,
326                                                    );
327                                                    $i++;
328                                            }
329    
330                                            $log->info("Created $i instances of MFN $mfn\n") if ($i > 1);
331                                    }
332    
333                                  $total_rows++;                                  $total_rows++;
334                          }                          }
Legend:
Removed from v.578  
changed lines
  Added in v.580
  ViewVC Help
Powered by ViewVC 1.1.26