my $link_sth = $links->query_sth($args);

# And format the link results.
my (@link_results_loop, $link_results, %link_output);
if ($link_count) {
my $results = $link_sth->fetchall_hashref;
$links->add_reviews($results);
@link_results_loop = map Links::SiteHTML::tags('link', $_) => @$results unless $CFG->{build_search_gb};
if ($CFG->{build_search_gb}) {
my @ids = map { $_->{ID} } @$results;
my $catlink = $DB->table('CatLinks','Category');
my %names = $catlink->select('LinkID', 'Full_Name', { LinkID => \@ids })->fetchall_list;
foreach my $link (@$results) {
push @{$link_output{$names{$link->{ID}}}}, Links::SiteHTML::tags('link', $link);
}
}
}

my $lcl = $DB->table('Links', 'CatLinks', 'Category') || return $GT::SQL::error;

my $sth = $lcl->select({ FatherID => $catid },
GT::SQL::Condition->new(
isValidated => '=' => 'Yes',
ExpiryDate => '>=' => time
) );

my @output;
my $link_count = '0';
my $results;

while (my $link = $sth->fetchrow_hashref)
{
$link->{distance} = distance($olat, $olon, $link->{Latitude}, $link->{Longitude}, $unit);

if($link->{distance} <= $dist)
{
$link_count++;
push (@output, $link);
$results .= $link;
}
}
@link_results_loop = map Links::SiteHTML::tags('link', $_) => @$results unless $CFG->{build_search_gb};