/[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 560 by dpavlin, Sun Jul 2 14:40:32 2006 UTC revision 576 by dpavlin, Mon Jul 3 22:12:13 2006 UTC
# Line 328  while (my ($database, $db_config) = each Line 328  while (my ($database, $db_config) = each
328                                          } else {                                          } else {
329                                                  $marc->add_fields( @marc_fields );                                                  $marc->add_fields( @marc_fields );
330    
331                                                    # tweak leader
332                                                    if (my $new_l = WebPAC::Normalize::marc_leader()) {
333    
334                                                            my $leader = $marc->leader;
335    
336                                                            foreach my $o ( keys %$new_l ) {
337                                                                    my $insert = $new_l->{$o};
338                                                                    $leader = substr($leader, 0, $o) .
339                                                                            $insert . substr($leader, $o+length($insert));
340                                                            }
341                                                            $marc->leader( $leader );
342                                                    }
343    
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\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: leader: [", $marc->leader(), "]\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\n",                                                          $log->info("MARC record on MFN $mfn\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: leader: [", $marc->leader(), "]\n", dump(@marc_fields), "\n",
358                                                          );                                                          );
359                                                  }                                                  }
360    
Legend:
Removed from v.560  
changed lines
  Added in v.576
  ViewVC Help
Powered by ViewVC 1.1.26