From da01404cf73bcf1ddb72992dc5617aab5fefcdd1 Mon Sep 17 00:00:00 2001 From: Jason Etheridge Date: Wed, 14 Sep 2016 09:33:54 -0400 Subject: [PATCH] filter out tabs from holding tag values Signed-off-by: Jason Etheridge --- extract_holdings | 8 ++++++-- 1 files changed, 6 insertions(+), 2 deletions(-) diff --git a/extract_holdings b/extract_holdings index 2cce000..f99b08d 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/\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/\t//g; + print $fh normalize_output(join("\t", $rec->{egid}, $j, $clean_value)), "\n"; } } } -- 1.7.2.5