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

    Regexp is now global

diff --git a/C4/Record.pm b/C4/Record.pm
index ee04d3d..b274fd7 100644 (file)
--- 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) {