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