Bug 6316 - es-ES inclusion - Last fixes

[srvgit] / C4 / Record.pm

diff --git a/C4/Record.pm b/C4/Record.pm
index b313fb8..c5727f3 100644 (file)
--- a/C4/Record.pm
+++ b/C4/Record.pm
@@ -359,7 +359,7 @@ sub marcrecord2csv {
     my $output;
 
     # Getting the record
-    my $record = GetMarcBiblio($biblio);
+    my $record = GetMarcBiblio($biblio, 1);
     next unless $record;
     # Getting the framework
     my $frameworkcode = GetFrameworkCode($biblio);
@@ -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}) {