sub {

my ($field,$operator,$val,$sort_order,$limit) = @_;

$sort_order ||= "Title ASC";

my $tbl = $DB->table('Links');
if ($limit) {
$tbl->select_options(qq|ORDER BY $sort_order LIMIT $limit|);
} else {
$tbl->select_options(qq|ORDER BY $sort_order|);
}

my $sth = $tbl->select( ['DISTINCT(LinkAuthor)'], GT::SQL::Condition->new('LinkAuthor','NOT LIKE','','') ) || die $GT::SQL::error;

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

if ($CFG->{build_detailed}) {
$hit->{detailed_url} = $CFG->{build_detail_url} . "/" . $DB->table('Links')->detailed_url( $hit->{ID} );
}

if ($hit->{isNew} eq "Yes") { $hit->{isNew} = 1; } else { $hit->{isNew} = 0; }
if ($hit->{isPopular} eq "Yes") { $hit->{isPopular} = 1; } else { $hit->{isPopular} = 0; }
if ($hit->{isChanged} eq "Yes") { $hit->{isChanged} = 1; } else { $hit->{isChanged} = 0; }

push @loop, $hit;
}

return { cond_loop_link => \@loop }

}

<%Custom_List_Links('Field','=','Test','Title ASC',10)%>