From ca948d45ef5282b5d0c6f8635cc51361a48ac63a Mon Sep 17 00:00:00 2001
From: Henri-Damien LAURENT <henridamien.laurent@biblibre.com>
Date: Mon, 10 May 2010 09:45:18 +0200
Subject: [PATCH] Bug 5037 : MT3044 : Fix CSV export when rer are blank characters

---
 C4/Record.pm |    2 ++
 1 files changed, 2 insertions(+), 0 deletions(-)

diff --git a/C4/Record.pm b/C4/Record.pm
index b313fb8..990bb50 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}) {
-- 
1.7.1