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