remove over-zealous chomping

Signed-off-by: James Fournie <jfournie@sitka.bclibraries.ca>

diff --git a/marc_export_custom/marc_export_custom b/marc_export_custom/marc_export_custom
index 1a9fb41..f26e54b 100755 (executable)
--- a/marc_export_custom/marc_export_custom
+++ b/marc_export_custom/marc_export_custom
@@ -246,7 +246,8 @@ sub export_record {
 
     } otherwise {
         my $e = shift;
-        my $errorid = chomp($id);
+        my $errorid = $id;
+        $errorid =~ s/\n$//g;
         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