sub {
my $cat_id = shift;
my $new_nr_limit = shift || 10; # Default is 10
($cat_id && $cat_id =~ /^\d+$/)
|| return "Invalid category ID passed to new_links_of_category global: $cat_id\n";
my $all_ids = $DB->table('Category')->children($cat_id);
push @$all_ids, $cat_id;
my $db_obj = $DB->table('Links','CatLinks','Category');
$db_obj->select_options ('ORDER BY Add_Date DESC Limit $new_nr_limit');
my $sth = $db_obj->select (['Links.*'],
GT::SQL::Condition->new(
['CategoryID', 'IN', $all_ids],
['isValidated', '=', 'Yes',
'isNew', '=', 'Yes']
)
);
my $output;
while (my $link = $sth->fetchrow_hashref) {
$link->{'category_url'} = $CFG->{build_root_url}."/".$link->{'Full_Name'}."/";
$link->{'detailed_url'} = "$CFG->{build_detail_url}/$link->{'ID'}$CFG->{build_extension}";
$output .= Links::SiteHTML::display('link', $link);
}
return $output;
}