X-Git-Url: http://git.equinoxoli.org/?p=migration-tools.git;a=blobdiff_plain;f=extract_holdings;h=619aec14853e961d5fa21aaf7530c1ddc1cb0ef1;hp=2cce0009068162dc70c3711aa869e8872d24cbac;hb=6b1c7d0b5585d2de5fac7d7803c475f88d560186;hpb=c9294d8a92619c2fe31d6b3843ad1593eddddebb

diff --git a/extract_holdings b/extract_holdings
index 2cce000..619aec1 100755
--- a/extract_holdings
+++ b/extract_holdings
@@ -91,7 +91,9 @@ sub extract_holdings {
             for my $sub ( sort keys %{$multis->{$tagid}} ) {
                 for my $value ( @{$rec->{tags}[$holdidx]{multi}{$sub}} ) {
                   my $fh = $MULTIFILE{"$tagid$sub"};
-                  print $fh join("\t", $rec->{egid}, $j, $value), "\n";
+                  my $clean_value = $value;
+                  $clean_value =~ s/[\r\n\t]//g;
+                  print $fh join("\t", $rec->{egid}, $j, $clean_value), "\n";
               }
             }
 
@@ -140,7 +142,9 @@ sub extract_holdings {
                         next if $m->first_only($rec->{tags}[$tag_idx]{tag}, $sub) and ($k > 1);
                         for my $value ( @{$rec->{tags}[$tag_idx]{multi}{$sub}} ) {
                             my $fh = $MULTIFILE{"$othertag$sub"};
-                            print $fh normalize_output(join("\t", $rec->{egid}, $j, $value)), "\n";
+                            my $clean_value = $value;
+                            $clean_value =~ s/[\r\n\t]//g;
+                            print $fh normalize_output(join("\t", $rec->{egid}, $j, $clean_value)), "\n";
                         }
                     }
                 }