From 3cfbcb63ce765c061db321cc7870f0c2e9c47def Mon Sep 17 00:00:00 2001 From: Matthias Meusburger Date: Fri, 5 Mar 2010 16:06:01 +0100 Subject: [PATCH] MT 3044, Follow-up : Fix CSV Export when there are blank chars in tag names Regexp is now global --- C4/Record.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/C4/Record.pm b/C4/Record.pm index ee04d3ddc5..b274fd7e5e 100644 --- a/C4/Record.pm +++ b/C4/Record.pm @@ -487,7 +487,7 @@ sub marcrecord2csv { my $marcfield = $_->{field}; # Remove any blank char that might have unintentionally insered into the tag name - $marcfield =~ s/\s+//; + $marcfield =~ s/\s+//g; # If it is a subfield if (index($marcfield, '$') > 0) { -- 2.20.1