sub {
my $tags = shift;
my $cat = $tags->{'Full_Name'};
my $output;
my $sth;
my $link;

use GT::SQL::Condition;

my $search_db = $DB->table('Links','CatLinks','Category');
$search_db->select_options ('GROUP BY LinkID ORDER BY Add_Date DESC Limit 5');
$sth = $search_db->select (['Links.ID', 'Links.Description', 'Links.Title', 'Links.Add_Date', 'Category.Full_Name', 'Category.Name'], GT::SQL::Condition->new(['Full_Name', 'LIKE', $cat .'%'], ['isNew', '=', 'Yes'], ['isValidated', '=', 'Yes'],['isChanged', '=', 'Yes']));

while ($link = $sth->fetchrow_hashref) {

$output .= Links::SiteHTML::display ('link1', $link);

}

return $output;

}