sub {

my $ids_to_get = q|7447,7572|;
my $max = 10;

my ($all_ids,$output);
my @tmp = split /,/, $ids_to_get;

my $all_ids_out;
foreach (@tmp) {
my $cat_id = $_;
$all_ids = $DB->table('Category')->children($cat_id);
foreach my $tmp2 (@$all_ids) {
push @$all_ids_out, $tmp2;
}
push @$all_ids_out, $cat_id;

}

# use Data::Dumper;
# return Dumper($all_ids_out);

my $link_db = $DB->table('Links','CatLinks','Category');
$link_db->select_options ("ORDER BY Add_Date DESC LIMIT $max");
my $condition = GT::SQL::Condition->new( 'isValidated','=','Yes','isNew','=','Yes','CategoryID', 'IN', $all_ids_out);
my $sth = $link_db->select($condition) || return $GT::SQL::error;
my @links;
while (my $link = $sth->fetchrow_hashref) {
#print "Got link: $link->{Title} \n";
push @links, $link;
}


# use Data::Dumper;
# return Dumper(@links);


return { random_links => \@links };
}

<%load_random_cats%>
<%loop random_links%>
<%include link.html%>
<%endloop%>