From 0659bca36a380822ea6b03f1a96a075e05d734d6 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=UTF-8 Content-Transfer-Encoding: 8bit Signed-off-by: Séverine QUEUNE Signed-off-by: Séverine QUEUNE Signed-off-by: Katrin Fischer --- C4/Breeding.pm | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/C4/Breeding.pm b/C4/Breeding.pm index d187703..894ef2c 100644 --- a/C4/Breeding.pm +++ b/C4/Breeding.pm @@ -394,6 +394,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; @@ -418,7 +419,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.1.4