Lines 751-757
sub _remove_stopwords {
Link Here
|
751 |
my @stopwords_removed; |
751 |
my @stopwords_removed; |
752 |
|
752 |
|
753 |
# phrase and exact-qualified indexes shouldn't have stopwords removed |
753 |
# phrase and exact-qualified indexes shouldn't have stopwords removed |
754 |
if ( $index !~ m/phr|ext/ ) { |
754 |
if ( $index !~ m/,(phr|ext)/ ) { |
755 |
|
755 |
|
756 |
# remove stopwords from operand : parse all stopwords & remove them (case insensitive) |
756 |
# remove stopwords from operand : parse all stopwords & remove them (case insensitive) |
757 |
# we use IsAlpha unicode definition, to deal correctly with diacritics. |
757 |
# we use IsAlpha unicode definition, to deal correctly with diacritics. |
Lines 1386-1392
sub buildQuery {
Link Here
|
1386 |
|
1386 |
|
1387 |
# Set default structure attribute (word list) |
1387 |
# Set default structure attribute (word list) |
1388 |
my $struct_attr = q{}; |
1388 |
my $struct_attr = q{}; |
1389 |
unless ( $indexes_set || !$index || $index =~ /(st-|phr|ext|wrdl|nb|ns)/ ) { |
1389 |
unless ( $indexes_set || !$index || $index =~ /,(st-|phr|ext|wrdl)/ || $index =~ /^(nb|ns)$/ ) { |
1390 |
$struct_attr = ",wrdl"; |
1390 |
$struct_attr = ",wrdl"; |
1391 |
} |
1391 |
} |
1392 |
|
1392 |
|
Lines 1404-1410
sub buildQuery {
Link Here
|
1404 |
} |
1404 |
} |
1405 |
|
1405 |
|
1406 |
if ($auto_truncation){ |
1406 |
if ($auto_truncation){ |
1407 |
unless ( $index =~ /(st-|phr|ext)/ ) { |
1407 |
unless ( $index =~ /,(st-|phr|ext)/ ) { |
1408 |
#FIXME only valid with LTR scripts |
1408 |
#FIXME only valid with LTR scripts |
1409 |
$operand=join(" ",map{ |
1409 |
$operand=join(" ",map{ |
1410 |
(index($_,"*")>0?"$_":"$_*") |
1410 |
(index($_,"*")>0?"$_":"$_*") |
1411 |
- |
|
|