Wow - think I must be tired! Sorry about that.
sub {
my $tags = shift;
my $cat = $tags->{'ID'};
my $all_ids = $DB->table('Category')->children($cat);
push @$all_ids, $cat;
my $output;
my $sth;
my $link;
use GT::SQL::Condition;
my $search_db = $DB->table('Links','CatLinks','Category');
$search_db->select_options ('ORDER BY Add_Date DESC Limit 5');
my $cond = GT::SQL::Condition->new( ['isNew', '=', 'Yes'], ['isChanged', '=', 'Yes']); $cond->bool('or');
$sth = $search_db->select (['Links.ID', 'Links.Description', 'Links.Title', 'Links.Add_Date', 'Category.Full_Name', 'Category.Name'], GT::SQL::Condition->new('CategoryID', 'IN', \@$all_ids, 'isValidated', '=', 'Yes', $cond));
while ($link = $sth->fetchrow_hashref) {
$output .= Links::SiteHTML::display ('link1', $link);
}
return $output;
}
sub {
my $tags = shift;
my $cat = $tags->{'ID'};
my $all_ids = $DB->table('Category')->children($cat);
push @$all_ids, $cat;
my $output;
my $sth;
my $link;
use GT::SQL::Condition;
my $search_db = $DB->table('Links','CatLinks','Category');
$search_db->select_options ('ORDER BY Add_Date DESC Limit 5');
my $cond = GT::SQL::Condition->new( ['isNew', '=', 'Yes'], ['isChanged', '=', 'Yes']); $cond->bool('or');
$sth = $search_db->select (['Links.ID', 'Links.Description', 'Links.Title', 'Links.Add_Date', 'Category.Full_Name', 'Category.Name'], GT::SQL::Condition->new('CategoryID', 'IN', \@$all_ids, 'isValidated', '=', 'Yes', $cond));
while ($link = $sth->fetchrow_hashref) {
$output .= Links::SiteHTML::display ('link1', $link);
}
return $output;
}