sub {
my $cat_id = shift;
my $all_ids = $DB->table('Category')->children($cat_id);
push @$all_ids, $cat_id;
my $link_db = $DB->table('Links','CatLinks','Category');
$link_db->select_options ("ORDER BY Add_Date DESC LIMIT 5");
my $condition = GT::SQL::Condition->new(
'isValidated','=','Yes',
'isNew','=','Yes',
'CategoryID', 'IN', \@$all_ids
);
my $sth = $link_db->select($condition);
my $output;
while (my $link = $sth->fetchrow_hashref) {
$link->{detailed_url} = "$CFG->{build_detail_url}/$link->{'ID'}$CFG->{build_extension}";
$output .= Links::SiteHTML::display ('link_homenew', $link);
}
return $output;
}