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