From d37da4d24fc07c5caf04960238a77c81fb95eabc Mon Sep 17 00:00:00 2001 From: Charles Farmer 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 Signed-off-by: Séverine QUEUNE Signed-off-by: Katrin Fischer Signed-off-by: Nick Clemens --- 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