From c63380df03a4e123c6be84a89d3bcb1754f99919 Mon Sep 17 00:00:00 2001 From: Mark Tompsett Date: Wed, 9 Mar 2016 19:34:24 -0500 Subject: [PATCH] Tweak C4/XSLT to delete field when no subfields left. https://bugs.koha-community.org/show_bug.cgi?id=11592 --- C4/XSLT.pm | 19 ++++++++++++------- 1 file changed, 12 insertions(+), 7 deletions(-) diff --git a/C4/XSLT.pm b/C4/XSLT.pm index 5622e5f..eedc87f 100644 --- a/C4/XSLT.pm +++ b/C4/XSLT.pm @@ -86,13 +86,18 @@ sub transformMARCXML4XSLT { $value = GetAuthorisedValueDesc( $tag, $letter, $value, '', $tagslib ) if $av->{ $tag }->{ $letter }; push( @new_subfields, $letter, $value ); - } - $field ->replace_with( MARC::Field->new( - $tag, - $field->indicator(1), - $field->indicator(2), - @new_subfields - ) ); + } + if (@new_subfields) { + $field ->replace_with( MARC::Field->new( + $tag, + $field->indicator(1), + $field->indicator(2), + @new_subfields + ) ); + } + else { + $record->delete_fields($field); + } } } } -- 2.1.4