Bug 5637 : MT3044 : Fix CSV export when rer are blank characters

Signed-off-by: Chris Cormack <chrisc@catalyst.net.nz>

diff --git a/C4/Record.pm b/C4/Record.pm
index b313fb8..990bb50 100644 (file)
--- a/C4/Record.pm
+++ b/C4/Record.pm
@@ -411,6 +411,8 @@ sub marcrecord2csv {
        foreach (@marcfields) {
 
            my $field = $_->{field};
+        # Remove any blank char that might have unintentionally insered into the tag name
+        $field =~ s/\s+//g; 
 
            # If we have a user-supplied header, we use it
            if (exists $_->{header}) {