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\tleader:", $marc->leader(), "\n", |
$log->error("MARC lint detected warning on MFN $mfn\n", |
348 |
">>>>> Original imput row:\n",dump($row), "\n", |
"<<<<< Original imput row:\n",dump($row), "\n", |
349 |
">>>>> Normalized MARC row:\n",dump(@marc_fields), "\n", |
">>>>> Normalized MARC row: leader: [", $marc->leader(), "]\n", dump(@marc_fields), "\n", |
350 |
">>>>> MARC lint warnings:\n",$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\n", |
356 |
">>>>> Original imput row:\n",dump($row), "\n", |
"<<<<< Original imput row:\n",dump($row), "\n", |
357 |
">>>>> Normalized MARC row:\n",dump(@marc_fields), "\n", |
">>>>> Normalized MARC row: leader: [", $marc->leader(), "]\n", dump(@marc_fields), "\n", |
358 |
); |
); |
359 |
} |
} |
360 |
|
|