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