} else {
$marc->add_fields( @marc_fields );
+ # tweak leader
+ if (my $new_l = WebPAC::Normalize::marc_leader()) {
+
+ my $leader = $marc->leader;
+
+ foreach my $o ( keys %$new_l ) {
+ my $insert = $new_l->{$o};
+ $leader = substr($leader, 0, $o) .
+ $insert . substr($leader, $o+length($insert));
+ }
+ $marc->leader( $leader );
+ }
+
if ($marc_lint) {
$lint->check_record( $marc );
my $err = join( "\n", $lint->warnings );
}
if ($marc_dump) {
- $log->info("MARC record on MFN $mfn\n",
+ $log->info("MARC record on MFN $mfn\tleader:", $marc->leader(), "\n",
"Original imput row: ",dump($row), "\n",
"Normalized MARC row: ",dump(@marc_fields), "\n",
);