bug 4084: remove \r from header line for sake of consistency

Signed-off-by: Galen Charlton <gmcharlt@gmail.com>

diff --git a/offline_circ/process_koc.pl b/offline_circ/process_koc.pl
index 5655f0c..7da7c9d 100755 (executable)
--- a/offline_circ/process_koc.pl
+++ b/offline_circ/process_koc.pl
@@ -176,6 +176,7 @@ returns a hashref containing the information from the header.
 sub parse_header_line {
     my $header_line = shift;
     chomp($header_line);
+    $header_line =~ s/\r//g;
 
     my @fields = split( /\t/, $header_line );
     my %header_info = map { split( /=/, $_ ) } @fields;