| 
      
            Lines 522-537
          sub getRecords {
      
      
        Link Here
      
     | 
  
        
          | 522 | 
           | 
          522 | 
           | 
        
        
          | 523 | 
                                          my @fields = $marc_record->field($tag_num);  | 
          523 | 
                                          my @fields = $marc_record->field($tag_num);  | 
        
        
          | 524 | 
                                          foreach my $field (@fields) { | 
          524 | 
                                          foreach my $field (@fields) { | 
        
          
            
              | 525 | 
                                                  # TODO: Once as_string is capable of using a separator, use this  | 
              525 | 
                                                  my $data = $field->as_string( $subfield_letters, $facet->{sep} ); | 
            
            
              | 526 | 
                                                  # my $data = $field->as_string( $subfield_letters, $facet->{sep} ); | 
               | 
               | 
            
            
              | 527 | 
               | 
            
            
              | 528 | 
                                                  my @values = ();  | 
            
            
              | 529 | 
                                                  foreach my $subfield (@subfields) { | 
            
            
              | 530 | 
                                                      push @values, $field->subfield( $subfield )  | 
            
            
              | 531 | 
                                                          if defined $field->subfield( $subfield );  | 
            
            
              | 532 | 
                                                  }  | 
            
            
              | 533 | 
               | 
            
            
              | 534 | 
                                                  my $data = join( $facet->{sep}, @values ); | 
            
        
          | 535 | 
           | 
          526 | 
           | 
        
        
          | 536 | 
                                              unless ( $data ~~ @used_datas ) { | 
          527 | 
                                              unless ( $data ~~ @used_datas ) { | 
        
        
          | 537 | 
                                                  push @used_datas, $data;  | 
          528 | 
                                                  push @used_datas, $data;  | 
        
            
              | 538 | 
              -   | 
               | 
               |