Lines 402-407
sub _get_search_heading {
Link Here
|
402 |
my $subfields = shift; |
402 |
my $subfields = shift; |
403 |
|
403 |
|
404 |
my $heading = ""; |
404 |
my $heading = ""; |
|
|
405 |
return $heading unless $subfields; |
405 |
my @subfields = $field->subfields(); |
406 |
my @subfields = $field->subfields(); |
406 |
my $first = 1; |
407 |
my $first = 1; |
407 |
for ( my $i = 0 ; $i <= $#subfields ; $i++ ) { |
408 |
for ( my $i = 0 ; $i <= $#subfields ; $i++ ) { |
Lines 439-444
sub _get_display_heading {
Link Here
|
439 |
my $subfields = shift; |
440 |
my $subfields = shift; |
440 |
|
441 |
|
441 |
my $heading = ""; |
442 |
my $heading = ""; |
|
|
443 |
return $heading unless $subfields; |
442 |
my @subfields = $field->subfields(); |
444 |
my @subfields = $field->subfields(); |
443 |
my $first = 1; |
445 |
my $first = 1; |
444 |
for ( my $i = 0 ; $i <= $#subfields ; $i++ ) { |
446 |
for ( my $i = 0 ; $i <= $#subfields ; $i++ ) { |
445 |
- |
|
|