my @ids;

my %filter = (
isValidated => 'Yes',
mh => $args->{mh},
nh => $args->{nh},
sb => $args->{sb},
so => $args->{so},
ww => 1
);

# Should not select unpaid and expired links if payment is enabled
$filter{ExpiryDate} = '>=' . time if $CFG->{payment}->{enabled};

if ($catid)
{
# This is just the short category name for display on template results
$catname = $categories_db->select( ['Name'], { ID => $catid } )->fetchrow;

# We want all links in catid and below. Found at GT forums under <%load_lower_links($ID)%>
my $catname_full = $categories_db->select( ['Full_Name'], { ID => $catid } )->fetchrow;
my $cond = GT::SQL::Condition->new(
Full_Name => '=' => "$catname_full",
Full_Name => 'LIKE' => "$catname_full/%"
);
$cond->bool('OR');
my $sth = $categories_db->select( $cond ) || die $GT::SQL::error;

my $count = '0';
while (my $hit = $sth->fetchrow_hashref) {
my $links_sth = $DB->table('CatLinks')->select( { CategoryID =>$hit->{ID} } ) || die $GT::SQL::error;

while (my $hit2 = $links_sth->fetchrow_hashref) {

my $link = $links_db->get($hit2->{LinkID});

# Get Current Links Zip Code from Main ZipCode DB
my $osth = $zipcode_db->select({ ZipCode => $link->{Zip} })->fetchrow_hashref;
my $currlat = $osth->{Latitude};
my $currlon = $osth->{Longitude};

# The actual distance search
$temp_distance = distance($olat, $olon, $currlat, $currlon, $unitcode);

if($temp_distance <= $dist)
{
$count++;
push (@ids, $link->{ID});
}
}
}

$filter{ID} = \@ids if $count > 0;
}
else
{
my @zips = matching_zips($query, $unitcode, $dist);
$filter{Zip} = \@zips;
}

my $link_sth = $links_db->query_sth(\%filter);
$link_count = $links_db->hits;

if ($link_count) {
my $results = $link_sth->fetchall_hashref;
.....
}