%
%
% 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
%
% }
% }
%