sub {
my $tags = shift;
my $author = $tags->{'Author'};
my ($sth,$link);

use GT::SQL::Condition;

my $search_db = $DB->table('Links','CatLinks','Category');
$search_db->select_options ('ORDER BY Title ASC');
my $sth = $search_db->select (['Links.ID', 'Links.Title', 'Category.Full_Name'], GT::SQL::Condition->new(['Author', '=', $author], ['isValidated', '=', 'Yes']));
my $output;
while ($link = $sth->fetchrow_hashref){
$link->{'detailed_url'} = "$CFG->{build_detail_url}/$link->{'ID'}$CFG->{build_extension}";
$output .=qq~<li><a href="$link->{'detailed_url'}" style="color: #333333;"><b>$link->{'Title'}</b></a><br>&nbsp;&nbsp;&nbsp;<i>$link->{'Full_Name'}</i><br><hr size="1" style="color: Silver;"></li>~;
}
if (!$output){return "No listings at this time.";}
else {return $output;}
}