sub {
my @cat_ids = split /,/, $_[0];

my $cond = new GT::SQL::Condition;
foreach (@cat_ids) { $cond->add('CatLinks.CategoryID','=',$_) }

$cond->bool('OR');

my $tbl = $DB->table('CatLinks','Links','CatLinks');
$tbl->select_options("ORDER BY Title");

my $sth = $tbl->select( ['Links.*'], $cond, { isNew => "Yes" } ) || die $GT::SQL::error;

my @loop;
while (my $hit = $sth->fetchrow_hashref) {
push @loop, $hit;
}

return { links_loop_by_cat => \@loop }


}

<%get_new_by_cat('1,2,3,4')%>
<%if links_loop_by_cat.length%>
<%loop links_loop_by_cat%>
<%include link.html%>
<%endloop%>
<%endif%>