sub {

my $current_cat_id = $DB->table('CatLinks')->select( ['CategoryID'], { LinkID > $_[0] } )->fetchrow;
my $cat_name = $DB->table('Category')->select( ['Full_Name'], { ID => $current_cat_id } )->fetchrow;

my @tmp = split /\//, $cat_name;
pop @tmp;

my $higher_up_cat = $DB->table('Category')->select( ['ID'], { Full_Name => join('/',@tmp) } )->fetchrow;

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

my $db_obj = $DB->table('Links','CatLinks','Category');
$db_obj->select_options("ORDER BY RAND() LIMIT 6");

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

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

return { relatedlinks => \@links };
}

<%get_rand_from_top_cat($ID)%>
<%if relatedlinks.length%>
<%loop relatedlinks%>
<%include link.html%>
<%endloop%>
<%endif%>