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