From f1f2d1ed8e305062f95220941e51c358bdc74643 Mon Sep 17 00:00:00 2001
From: Matthias Meusburger <matthias.meusburger@biblibre.com>
Date: Fri, 5 Mar 2010 14:18:06 +0100
Subject: [PATCH] MT 3044 : Fix CSV Export when there are blank chars in tag
 names

---
 C4/Record.pm | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/C4/Record.pm b/C4/Record.pm
index 704e1c453b..ee04d3ddc5 100644
--- a/C4/Record.pm
+++ b/C4/Record.pm
@@ -485,6 +485,10 @@ sub marcrecord2csv {
     my @fieldstab;
     foreach (@marcfields) {
 	my $marcfield = $_->{field};
+
+	# Remove any blank char that might have unintentionally insered into the tag name
+	$marcfield =~ s/\s+//;	
+
 	# If it is a subfield
 	if (index($marcfield, '$') > 0) {
 	    my ($fieldtag, $subfieldtag) = split('\$', $marcfield);
-- 
2.39.5