6 Einträge, 1 Seite |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
#!/usr/bin/perl -w -T use strict; use CGI::Carp qw(fatalsToBrowser); use CGI qw(param url); use Data::Pageset; my $aktion = param("aktion"); my $page_info = Data::Pageset->new({ total_entries => 100, entries_per_page => 10, current_page => 1, pages_per_set => 10, mode => 'slide', }); print "Content-type: text/html\n\n"; foreach my $page (@{$page_info->pages_in_set()}) { print "<a href=\"test.cgi?aktion=$page\">$page</a> \n"; } exit;
6 Einträge, 1 Seite |