From 5dbdcd489d0274efb0e33de73f840c03796f461f Mon Sep 17 00:00:00 2001 From: Matthias Meusburger 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