Lines 515-520
sub getRecords {
Link Here
|
515 |
my $expandable; |
515 |
my $expandable; |
516 |
my $number_of_facets; |
516 |
my $number_of_facets; |
517 |
my @this_facets_array; |
517 |
my @this_facets_array; |
|
|
518 |
my %used_facets; |
518 |
for my $one_facet ( |
519 |
for my $one_facet ( |
519 |
sort { |
520 |
sort { |
520 |
$facets_counter->{$link_value} |
521 |
$facets_counter->{$link_value} |
Lines 523-528
sub getRecords {
Link Here
|
523 |
} keys %{ $facets_counter->{$link_value} } |
524 |
} keys %{ $facets_counter->{$link_value} } |
524 |
) |
525 |
) |
525 |
{ |
526 |
{ |
|
|
527 |
$one_facet =~ s/([^;:.,]) ?[;:.,]$/$1/; # ISBD/AACR2 punctuation |
528 |
next if (defined($used_facets{$one_facet})); |
529 |
$used_facets{$one_facet} = 1; |
526 |
$number_of_facets++; |
530 |
$number_of_facets++; |
527 |
if ( ( $number_of_facets <= 5 ) |
531 |
if ( ( $number_of_facets <= 5 ) |
528 |
|| ( $expanded_facet eq $link_value ) |
532 |
|| ( $expanded_facet eq $link_value ) |