Re: perl pagination links

[poj]

Consider simplifying the page link code to something like this

# page links
my $pagelinks;
 
if ($reqpage > 1){
  my $prev_page = $reqpage - 1;
  $pagelinks .= qq! <a href="?reqpage=$prev_page"> Previous </a> !;
}    
    
for my $pageno (1..$pagecount){
  if ($pageno == $reqpage){
    $pagelinks .= qq! <strong>$pageno</strong>!;
  } else {
    $pagelinks .= qq! <a href="?reqpage=$pageno"> $pageno </a> !;     
  }
}
    
if ($reqpage < $pagecount){
  my $next_page = $reqpage + 1;
  $pagelinks .= qq! <a href="?reqpage=$next_page"> Next </a> !;
}

poj

[ironside]

poj you're absolutely brilliant! That did the trick. I did a lot of testing and I had a feeling that's where the problem was.

Thank you for taking the time to help. Perl Monks are top class.
Cheers poj!