added automated wildcards to search engine, to make it act more like people would expect

This commit is contained in:
JT Smith 2006-03-31 03:22:05 +00:00
parent bf1a0ad11e
commit 78b97985ab
2 changed files with 10 additions and 2 deletions

View file

@ -262,7 +262,15 @@ sub search {
my $query = "";
my @clauses = ();
if ($rules->{keywords}) {
push(@params,$rules->{keywords},$rules->{keywords});
my $keywords = $rules->{keywords};
unless ($keywords =~ m/"|\*/) { # do wildcards for people, like they'd expect
my @terms = split(' ',$keywords);
for (my $i = 0; $i < scalar(@terms); $i++) {
$terms[$i] .= "*";
}
$keywords = join(" ", @terms);
}
push(@params, $keywords, $keywords);
$self->{_score} = "match (keywords) against (? in boolean mode) as score";
push(@clauses, "match (keywords) against (? in boolean mode)");
}