, $cat

($in->param('category') =~ /^(\d+)$/) and ($cat = $1);

($in->param('order') =~ /^(score|category)$/i) ? ($order = uc $1) : ($order = 'CATEGORY');

# Build a hash of the category and subcategories.
my (%categories);
if ($cat) {
$categories{$cat}++;
my $sth = $catdb->prepare ("SELECT SubCategoryID FROM CategoryHierarchy WHERE CategoryID = $cat");
$sth->execute() or die $DBI::errstr;
while (my ($id) = $sth->fetchrow_array) { $categories{$id}++; }
}

# Return if we don't have any matches.
unless ($link_count or $cat_count) {
&log_query ($in->param('query'), 0);
&site_html_search_failure ({ error => "No matching links.", ignored => $ignored, %in }, $dynamic);
return;
}

$hit = $catdb->array_to_hash($hit);

if ($cat && !$categories{$hit->{ID}}) { $cat_count--; next; }

$hit = $linkdb->array_to_hash ($hit);

if ($cat && !$categories{$hit->{CategoryID}}) { $link_count--; next; }