adding a bit more useful error handling

diff --git a/marc_export_custom/marc_export_custom b/marc_export_custom/marc_export_custom
index ee80131..f9951d5 100755 (executable)
--- a/marc_export_custom/marc_export_custom
+++ b/marc_export_custom/marc_export_custom
@@ -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
     };