adding a bit more useful error handling
authorJames Fournie <jfournie@sitka.bclibraries.ca>
Mon, 3 Oct 2011 18:04:35 +0000 (11:04 -0700)
committerJames Fournie <jfournie@sitka.bclibraries.ca>
Mon, 3 Oct 2011 18:04:35 +0000 (11:04 -0700)
marc_export_custom/marc_export_custom

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