/[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 564 by dpavlin, Sun Jul 2 20:14:21 2006 UTC revision 567 by dpavlin, Sun Jul 2 21:22:26 2006 UTC
# Line 344  while (my ($database, $db_config) = each Line 344  while (my ($database, $db_config) = each
344                                                  if ($marc_lint) {                                                  if ($marc_lint) {
345                                                          $lint->check_record( $marc );                                                          $lint->check_record( $marc );
346                                                          my $err = join( "\n", $lint->warnings );                                                          my $err = join( "\n", $lint->warnings );
347                                                          $log->error("MARC lint detected warning on MFN $mfn\n",                                                          $log->error("MARC lint detected warning on MFN $mfn\tleader:", $marc->leader(), "\n",
348                                                                  "Original imput row: ",dump($row), "\n",                                                                  ">>>>> Original imput row:\n",dump($row), "\n",
349                                                                  "Normalized MARC row: ",dump(@marc_fields), "\n",                                                                  ">>>>> Normalized MARC row:\n",dump(@marc_fields), "\n",
350                                                                  "MARC lint warnings: ",$err,"\n"                                                                  ">>>>> MARC lint warnings:\n",$err,"\n"
351                                                          ) if ($err);                                                          ) if ($err);
352                                                  }                                                  }
353    
354                                                  if ($marc_dump) {                                                  if ($marc_dump) {
355                                                          $log->info("MARC record on MFN $mfn\tleader:", $marc->leader(), "\n",                                                          $log->info("MARC record on MFN $mfn\tleader:", $marc->leader(), "\n",
356                                                                  "Original imput row: ",dump($row), "\n",                                                                  ">>>>> Original imput row:\n",dump($row), "\n",
357                                                                  "Normalized MARC row: ",dump(@marc_fields), "\n",                                                                  ">>>>> Normalized MARC row:\n",dump(@marc_fields), "\n",
358                                                          );                                                          );
359                                                  }                                                  }
360    
Legend:
Removed from v.564  
changed lines
  Added in v.567
  ViewVC Help
Powered by ViewVC 1.1.26