Fix chomp.
authorRobin H. Johnson <rjohnson@sitka.bclibraries.ca>
Wed, 5 Oct 2011 00:51:54 +0000 (17:51 -0700)
committerRobin H. Johnson <rjohnson@sitka.bclibraries.ca>
Wed, 5 Oct 2011 00:51:54 +0000 (17:51 -0700)
marc_export_custom/marc_export_custom

index 6529c16..75178af 100755 (executable)
@@ -256,7 +256,7 @@ sub export_record {
     } otherwise {
         my $e = shift;
         my $errorid = $id;
-        $errorid =~ s/\n$//g;
+       chomp($errorid);
         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