diff --git a/C4/Heading/MARC21.pm b/C4/Heading/MARC21.pm index cb422d5c11..4f747d7f92 100644 --- a/C4/Heading/MARC21.pm +++ b/C4/Heading/MARC21.pm @@ -402,6 +402,7 @@ sub _get_search_heading { my $subfields = shift; my $heading = ""; + return $heading unless $subfields; my @subfields = $field->subfields(); my $first = 1; for ( my $i = 0 ; $i <= $#subfields ; $i++ ) { @@ -439,6 +440,7 @@ sub _get_display_heading { my $subfields = shift; my $heading = ""; + return $heading unless $subfields; my @subfields = $field->subfields(); my $first = 1; for ( my $i = 0 ; $i <= $#subfields ; $i++ ) {