From d37da4d24fc07c5caf04960238a77c81fb95eabc Mon Sep 17 00:00:00 2001
From: Charles Farmer <charles.farmer@inLibro.com>
Date: Wed, 29 Aug 2018 11:43:49 -0400
Subject: [PATCH] Bug 12747: (QA follow-up) Treat 010 according to marcflavour
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

Signed-off-by: Séverine QUEUNE <severine.queune@bulac.fr>
Signed-off-by: Séverine QUEUNE <severine.queune@bulac.fr>

Signed-off-by: Katrin Fischer <katrin.fischer.83@web.de>

Signed-off-by: Nick Clemens <nick@bywatersolutions.com>
---
 C4/Breeding.pm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/C4/Breeding.pm b/C4/Breeding.pm
index 3899b38436..9afd2f123d 100644
--- a/C4/Breeding.pm
+++ b/C4/Breeding.pm
@@ -375,6 +375,7 @@ sub _add_custom_field_rowdata
 {
     my ( $row, $record ) = @_;
     my $pref_newtags = C4::Context->preference('AdditionalFieldsInZ3950ResultSearch');
+    my $pref_flavour = C4::Context->preference('MarcFlavour');
 
     $pref_newtags =~ s/^\s+|\s+$//g;
     $pref_newtags =~ s/\h+/ /g;
@@ -399,7 +400,9 @@ sub _add_custom_field_rowdata
                     if ( not $str eq '') {
                         push @content, $str;
                     }
-                } elsif ( $tag <= 10 ) {
+                } elsif ( $tag == 10 ) {
+                    push @content, ( $pref_flavour eq "MARC21" ? $marcfield->data : $marcfield->as_string );
+                } elsif ( $tag < 10 ) {
                     push @content, $marcfield->data();
                 } else {
                     push @content, $marcfield->as_string();
-- 
2.39.5