MT 3044, Follow-up : Fix CSV Export when there are blank chars in tag names

Regexp is now global
This commit is contained in:
Matthias Meusburger 2010-03-05 16:06:01 +01:00 committed by Henri-Damien LAURENT
parent f1f2d1ed8e
commit 3cfbcb63ce
1 changed files with 1 additions and 1 deletions

View File

@ -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) {