Lines 680-686
sub _get_facets_data_from_record {
Link Here
|
680 |
next if $field->indicator(1) eq 'z'; |
680 |
next if $field->indicator(1) eq 'z'; |
681 |
|
681 |
|
682 |
my $data = $field->as_string( $subfield_letters, $facet->{ sep } ); |
682 |
my $data = $field->as_string( $subfield_letters, $facet->{ sep } ); |
683 |
$data =~ s/\s*(?<![A-Z])[.\-,;]*\s*$//; |
683 |
$data =~ s/\s*(?<!\p{Uppercase})[.\-,;]*\s*$//; |
684 |
|
684 |
|
685 |
unless ( grep { $_ eq $data } @used_datas ) { |
685 |
unless ( grep { $_ eq $data } @used_datas ) { |
686 |
push @used_datas, $data; |
686 |
push @used_datas, $data; |
Lines 779-785
sub _get_facet_from_result_set {
Link Here
|
779 |
my $facets = {}; |
779 |
my $facets = {}; |
780 |
foreach my $term ( @terms ) { |
780 |
foreach my $term ( @terms ) { |
781 |
my $facet_value = $term->textContent; |
781 |
my $facet_value = $term->textContent; |
782 |
$facet_value =~ s/\s*(?<![A-Z])[.\-,;]*\s*$//; |
782 |
$facet_value =~ s/\s*(?<!\p{Uppercase})[.\-,;]*\s*$//; |
783 |
$facet_value =~ s/\Q$internal_sep\E/$sep/ if defined $sep; |
783 |
$facet_value =~ s/\Q$internal_sep\E/$sep/ if defined $sep; |
784 |
$facets->{ $facet_value } = ( defined $facets->{$facet_value} ) ? $facets->{ $facet_value } + $term->getAttribute( 'occur' ) : $term->getAttribute( 'occur' ); |
784 |
$facets->{ $facet_value } = ( defined $facets->{$facet_value} ) ? $facets->{ $facet_value } + $term->getAttribute( 'occur' ) : $term->getAttribute( 'occur' ); |
785 |
} |
785 |
} |