diff --git a/C4/AuthoritiesMarc.pm b/C4/AuthoritiesMarc.pm index b595230c5d..ecc8c53d42 100644 --- a/C4/AuthoritiesMarc.pm +++ b/C4/AuthoritiesMarc.pm @@ -1138,9 +1138,11 @@ sub BuildSummary { my $heading = $field->as_string($subfields_to_report); - my $subheading = $field->as_string( $subfields_to_subdivision, $delimiter ); - if ( length $subheading > 0 ) { - $heading .= $delimiter . $subheading; + if ($subfields_to_subdivision) { + my $subheading = $field->as_string( $subfields_to_subdivision, $delimiter ); + if ( length $subheading > 0 ) { + $heading .= $delimiter . $subheading; + } } if ($subfields_to_report) {