sub {

my $cat = shift;
my $all_ids = $DB->table('Category')->children($cat);
push @$all_ids, $cat;

my $db_obj = $DB->table('Links','CatLinks','Category');
$db_obj->select_options ('ORDER BY Title DESC LIMIT 20');

my $cond = GT::SQL::Condition->new('CategoryID', 'IN', $all_ids);
my $cond2 = GT::SQL::Condition->new('isValidated','=','Yes');
my $sth = $db_obj->select (['Links.*'], $cond, $cond2 ) || die $GT::SQL::error;

my @cats;
while (my $hit = $sth->fetchrow_hashref) {
$link = Links::SiteHTML::tags('link', $link);
push @cats, $hit;
}

return { link_sub_loop => \@cats }

}

<%loop category_loop%>
<%include subcategory.html%>
<%get_cat_links ($ID)%>
<%if link_sub_loop.length%>
<%loop link_sub_loop.length%>
<%include link.html%>
<%endloop%>
<%endif%>