Bug 9144 - bulkmarcimport.pl - Problem identifying errors

Replace \r with \n for newline in output for bulkmarcimport.pl

Signed-off-by: Kyle M Hall <kyle@bywatersolutions.com>
Signed-off-by: Paul Poulain <paul.poulain@biblibre.com>
Signed-off-by: Jared Camins-Esakov <jcamins@cpbibliography.com>
This commit is contained in:
Vitor FERNANDES 2012-11-26 11:23:15 +00:00 committed by Jared Camins-Esakov
parent 4a0b597e3d
commit 33e95ea3b9
1 changed files with 1 additions and 1 deletions

View File

@ -187,7 +187,7 @@ RECORD: while ( ) {
last unless ( $record );
$i++;
print ".";
print "\r$i" unless $i % 100;
print "\n$i" unless $i % 100;
# transcode the record to UTF8 if needed & applicable.
if ($record->encoding() eq 'MARC-8' and not $skip_marc8_conversion) {