sub {
my $args=shift;
#my $cat_id = $IN->param('catID');
my $db = $DB->table ('Category','CatLinks');
my $cat_id = $db->select ( { 'CatLinks.LinkID' => $args->{ID} }, ['Category.ID'] )->fetchrow_array;

my $catlnk_db = $DB->table ('Links', 'CatLinks');
$catlnk_db->select_options ("ORDER BY $CFG->{build_sort_order_category}") if ($CFG->{build_sort_order_category});
my $sth = $catlnk_db->select ( { CategoryID => $cat_id, isValidated => 'Yes' }, [ 'Links.ID' ,'Links.Title'] );
my ($next, $prev, $next_title, $prev_title, $Title);
while (my ($id,$title) = $sth->fetchrow_array) {
if ($id == $args->{ID}) {
($next,$next_title) = $sth->fetchrow_array;
last;
}
else {
$prev = $id;
$prev_title = $title;
}
}
my ($next_url, $prev_url);
if ($next) {
$Title = $next_title;
$Title =~ y/ \t\r\n?"'#/-/d;
$next_url = "/detail/$Title-L$next.html";;
}
if ($prev) {
$Title = $prev_title;
$Title =~ y/ \t\r\n?"'#/-/d;
$prev_url = "/detail/$Title-L$prev.html";;
}
return {next_url => $next_url, next_title => $next_title, prev_url => $prev_url, prev_title => $prev_title};
}

<%if $prev_url%>
<p>Previous link: <a href="<%prev_url%>"><%prev_title%></a></p>
<%endif%>
<%if $next_url%>
<p>Next link: <a href="<%next_url%>"><%next_title%></a></p>
<%endif%>