sub {

my ($limit,$sort_order,$cat_id) = (shift,shift,shift);
my @queries = @_;

$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 $cond = new GT::SQL::Condition;

foreach (@queries) {
my ($field,$operator,$val) = split /::/;
$cond->add($field,$operator,$val);
}
$cond->bool("AND");

my $sth = $tbl->select( $cond, { 'CatLinks.CategoryID' => $cat_id } ) || die $GT::SQL::error;

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

$hit = Links::SiteHTML::tags('link', $hit);
push @loop, $hit;
}

return { cond_loop_link => \@loop }


}

<%load_links(LIMIT,'SORT ORDER',CATEGORY_ID,'isValidated::=::Yes','Foo::LIKE::%bar%')%>

<%load_links(10,'Title ASC',123,'isValidated::=::Yes','Foo::LIKE::%bar%')%>

isValidated => Yes
Foo LIKE "%bar%"

<%loop cond_loop_link%>
<%include link.html%>
<%endloop%>

<%load_links(25,'City_Name ASC',$category_id,'isValidated::=::Yes')%>
<h2>Listings sorted by City name:</h2>
<%loop cond_loop_link%>
<%include link.html%>
<%endloop%>

<%load_links(25,'County_Name ASC',$category_id,'isValidated::=::Yes')%>
<h2>Listings sorted by County name:</h2>
<%loop cond_loop_link%>
<%include link.html%>
<%endloop%>

<%load_links(25,'Language ASC',$category_id,'isValidated::=::Yes')%>
<h2>Listings sorted by Language :</h2>
<%loop cond_loop_link%>
<%include link.html%>
<%endloop%>