/[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 564 by dpavlin, Sun Jul 2 20:14:21 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 );
# Line 339  while (my ($database, $db_config) = each Line 352  while (my ($database, $db_config) = each
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\tleader:", $marc->leader(), "\n",
356                                                                  "Original imput row: ",dump($row), "\n",                                                                  "Original imput row: ",dump($row), "\n",
357                                                                  "Normalized MARC row: ",dump(@marc_fields), "\n",                                                                  "Normalized MARC row: ",dump(@marc_fields), "\n",
358                                                          );                                                          );
Legend:
Removed from v.560  
changed lines
  Added in v.564
  ViewVC Help
Powered by ViewVC 1.1.26