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 |
|
|