|
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 |
- |
|
|