From 0c8c7a8db6d18efc4632e6ba006aecaf1ec32ee0 Mon Sep 17 00:00:00 2001
From: Henri-Damien LAURENT <henridamien.laurent@biblibre.com>
Date: Wed, 6 Apr 2011 17:00:45 +0200
Subject: [PATCH] Bug 5637 : MT3044 : Fix CSV export when rer are blank
 characters

Signed-off-by: Chris Cormack <chrisc@catalyst.net.nz>
---
 C4/Record.pm | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/C4/Record.pm b/C4/Record.pm
index b313fb8f97..990bb50b52 100644
--- 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}) {
-- 
2.39.5