vitalif
/
bugzilla-4intranet
mirror of https://github.com/vitalif/bugzilla-4intranet
1
0
Fork 0
Code Issues Releases Wiki Activity

Bug 46221 

Relevance + AND by default


git-svn-id: svn://svn.office.custis.ru/3rdparty/bugzilla.org/trunk@427 6955db30-a419-402b-8a0d-67ecbb4d7f56
master
vfilippov 2009-09-15 12:33:27 +00:00
parent 0379ec2963
commit 3e58bcd54f
2 changed files with 30 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
Bugzilla/DB/Mysql.pm
View File

@ -165,22 +165,29 @@ sub sql_string_concat {
sub sql_fulltext_search {
my ($self, $column, $text) = @_;
# Add the boolean mode modifier if the search string contains
# boolean operators at the start or end of a word.
my $mode = '';
if ($text =~ /(?:^|\W)[+\-<>~"()]/ || $text =~ /[()"*](?:$|\W)/) {
$mode = 'IN BOOLEAN MODE';
# quote un-quoted compound words
my @words = quotewords('[\s()]+', 'delimiters', $text);
foreach my $word (@words) {
# quote un-quoted compound words
my @words = quotewords('[\s()]+', 'delimiters', $text);
if ($text =~ /(?:^|\W)[+\-<>~"()]/ || $text =~ /[()"*](?:$|\W)/)
{
# already a boolean mode search
foreach my $word (@words)
{
# match words that have non-word chars in the middle of them
if ($word =~ /\w\W+\w/ && $word !~ m/"/) {
if ($word =~ /\w\W+\w/ && $word !~ /\"/)
{
$word = '"' . $word . '"';
}
}
$text = join('', @words);
}
else
{
# make search a boolean mode search
for (@words)
{
$_ = "+$_*" if /\w$/;
}
}
$text = join '', @words;
# quote the text for use in the MATCH AGAINST expression
$text = $self->quote($text);
@ -188,7 +195,7 @@ sub sql_fulltext_search {
# untaint the text, since it's safe to use now that we've quoted it
trick_taint($text);
return "MATCH($column) AGAINST($text $mode)";
return ("MATCH($column) AGAINST($text IN BOOLEAN MODE)", "MATCH($column) AGAINST($text)");
}
sub sql_istring {

14
Bugzilla/Util.pm
View File

@ -676,6 +676,7 @@ sub disable_utf8 {
sub stem_text
{
my ($text, $allow_verbatim) = @_;
Encode::_utf8_on($text) if Bugzilla->params->{utf8};
$text = [ split /(?<=\w)(?=\W)|(?<=\W)(?=\w)/, $text ];
my $q = 0;
for (@$text)
@ -684,10 +685,17 @@ sub stem_text
{
$_ = Lingua::Stem::RuUTF8::stem_word($_) unless $q;
}
elsif ($allow_verbatim)
else
{
# If $allow_verbatim is TRUE then text in "double quotes" doesn't stem
$q = ($q + tr/\"/\"/) % 2;
if ($allow_verbatim)
{
# If $allow_verbatim is TRUE then text in "double quotes" doesn't stem
$q = ($q + tr/\"/\"/) % 2;
}
if (!/\s$/so)
{
$_ .= ' ';
}
}
}
return join '', @$text;