oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

WebGUI 0.11.0 release

Browse source
This commit is contained in:
JT Smith 2001-08-23 02:52:00 +00:00
parent 1b82634d23
commit f0d80bbfb3
19 changed files with 207 additions and 98 deletions
Download patch file Download diff file Expand all files Collapse all files

32
lib/WebGUI/Widget/SearchMnoGo.pm
View file

@ -24,19 +24,27 @@ sub _mnogoSearch {
%data = @_;
@keyword = split(/ /,$session{form}{query});
$dbh = DBI->connect($data{DSN},$data{username},$data{identifier});
foreach $word (@keyword) {
$sth = WebGUI::SQL->read("select url_id from dict where soundex(word)=soundex(lcase('$word'))",$dbh);
while (($urlId) = $sth->array) {
$result{$urlId}++;
if (defined $dbh) {
foreach $word (@keyword) {
$sth = WebGUI::SQL->read("select url_id from dict where soundex(word)=soundex(lcase('$word'))",$dbh);
if (defined $sth) {
while (($urlId) = $sth->array) {
$result{$urlId}++;
}
$sth->finish;
} else {
$output .= '<b>Error</b>: There was a problem with the query.';
}
}
$sth->finish;
}
foreach $key (sort {$result{$b} <=> $result{$a}} keys %result) {
if ($i < 50) {
%match = WebGUI::SQL->quickHash("select url,title,txt from url where rec_id=$key",$dbh);
$output .= '<a href="'.$match{url}.'">'.$match{title}.'</a> ('.$result{$key}.')<br>'.$match{txt}.'<br><a href="'.$match{url}.'">'.$match{url}.'</a><p>';
}
$i++;
foreach $key (sort {$result{$b} <=> $result{$a}} keys %result) {
if ($i < 50) {
%match = WebGUI::SQL->quickHash("select url,title,txt from url where rec_id=$key",$dbh);
$output .= '<a href="'.$match{url}.'">'.$match{title}.'</a> ('.$result{$key}.')<br>'.$match{txt}.'<br><a href="'.$match{url}.'">'.$match{url}.'</a><p>';
}
$i++;
}
} else {
$output .= '<b>Error</b>: Could not connect to remote database.';
}
$dbh->disconnect();
return $output;