remove over-zealous chomping
authorJames Fournie <jfournie@sitka.bclibraries.ca>
Wed, 5 Oct 2011 00:43:04 +0000 (17:43 -0700)
committerJames Fournie <jfournie@sitka.bclibraries.ca>
Wed, 5 Oct 2011 00:43:04 +0000 (17:43 -0700)
Signed-off-by: James Fournie <jfournie@sitka.bclibraries.ca>
marc_export_custom/marc_export_custom

index 1a9fb41..f26e54b 100755 (executable)
@@ -246,7 +246,8 @@ sub export_record {
 
     } otherwise {
         my $e = shift;
 
     } 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
         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