fixing this error handling
authorJames Fournie <jfournie@sitka.bclibraries.ca>
Mon, 3 Oct 2011 18:11:17 +0000 (11:11 -0700)
committerJames Fournie <jfournie@sitka.bclibraries.ca>
Mon, 3 Oct 2011 18:11:17 +0000 (11:11 -0700)
marc_export_custom/marc_export_custom

index f9951d5..1a9fb41 100755 (executable)
@@ -246,7 +246,9 @@ sub export_record {
 
     } otherwise {
         my $e = shift;
-        warn "\nRECORD $bib->id ERROR: $e\n";
+        my $errorid = chomp($id);
+        chomp($e);
+        warn "\nERROR ON RECORD $errorid: $e\n";
         import MARC::File::XML; # reset SAX parser so that one bad record doesn't kill the entire export
     };
 
@@ -267,7 +269,9 @@ sub export_record {
                 }
             } otherwise {
                 my $e = shift;
-                warn "\n$e\n";
+                my $errorid = chomp($id);
+                chomp($e);
+                warn "\nERROR ON MFHD RECORD $errorid: $e\n";
                 import MARC::File::XML; # reset SAX parser so that one bad record doesn't kill the entire export
             };
         }