r792@llin: dpavlin | 2006-07-04 00:11:52 +0200

 improved marc log output

git-svn-id: svn+ssh://mjesec/home/dpavlin/svn/webpac2/trunk@576 07558da8-63fa-0310-ba24-9fe276d99e06

diff --git a/run.pl b/run.pl
index 503a170..537e289 100755 (executable)
--- a/run.pl
+++ b/run.pl
@@ -344,17 +344,17 @@ while (my ($database, $db_config) = each %{ $config->{databases} }) {
                                                if ($marc_lint) {
                                                        $lint->check_record( $marc );
                                                        my $err = join( "\n", $lint->warnings );
-                                                       $log->error("MARC lint detected warning on MFN $mfn\tleader:", $marc->leader(), "\n",
-                                                               ">>>>> Original imput row:\n",dump($row), "\n",
-                                                               ">>>>> Normalized MARC row:\n",dump(@marc_fields), "\n",
-                                                               ">>>>> MARC lint warnings:\n",$err,"\n"
+                                                       $log->error("MARC lint detected warning on MFN $mfn\n",
+                                                               "<<<<< Original imput row:\n",dump($row), "\n",
+                                                               ">>>>> Normalized MARC row: leader: [", $marc->leader(), "]\n", dump(@marc_fields), "\n",
+                                                               "!!!!! MARC lint warnings:\n",$err,"\n"
                                                        ) if ($err);
                                                }
 
                                                if ($marc_dump) {
-                                                       $log->info("MARC record on MFN $mfn\tleader:", $marc->leader(), "\n",
-                                                               ">>>>> Original imput row:\n",dump($row), "\n",
-                                                               ">>>>> Normalized MARC row:\n",dump(@marc_fields), "\n",
+                                                       $log->info("MARC record on MFN $mfn\n",
+                                                               "<<<<< Original imput row:\n",dump($row), "\n",
+                                                               ">>>>> Normalized MARC row: leader: [", $marc->leader(), "]\n", dump(@marc_fields), "\n",
                                                        );
                                                }