<% my %opt = @_; my $pager = ''; if ( $opt{'total'} != $opt{'num_rows'} && $opt{'maxrecords'} ) { unless ( $opt{'offset'} == 0 ) { $cgi->param('offset', $opt{'offset'} - $opt{'maxrecords'}); %> Previous <% } my $page = 0; for ( my $poff = 0; $poff < $opt{'total'}; $poff += $opt{'maxrecords'} ) { $page++; if ( $opt{'offset'} == $poff ) { %> <%= $page %> <% } else { $cgi->param('offset', $poff); %> <%= $page %> <% } } unless ( $opt{'offset'} + $opt{'maxrecords'} > $opt{'total'} ) { $cgi->param('offset', $opt{'offset'} + $opt{'maxrecords'}); %> Next <% } } %>