print "Title = <a href=\"$rec{title}.html\">$rec{title}</a><br>Actors = $rec{actors}.........";

<< < 1 2 3 4 [5] 6 7 8 9 > >>

my $span = span(scalar @files);
print $span;

sub span {
my $span;
my $limit = 8;
my $hits = shift;
my $max = 9;
($page =~ /\d+$/) or ($page = 1);
my $total = int(($hits/$max) + 1);
die "invalid page" if ($page > $total);

my $start = ($page > 4) ? ($page - 4) : (1);
my $finish = ($page + 4 > $total) ? ($total) : ($page + 4);
my $i = ($finish - $start);

if (($i < $limit) and ($limit < $total)) {
($finish - $page < $page - $start) ? ($start += $i - $limit) : ($finish += $limit - $i)
}

if ($page) {
$span .= qq|<a href="files.cgi?pg=1">&lt;&lt;</a> |;
$span .= " <a href='files.cgi?pg=" . ($page) . "'>&lt;</a> ";
}
else {
$span .= qq|&lt;&lt; |;
$span .= " &lt; ";
}

for ($start .. $finish) {
if ($_ == ($page + 1)){
$span .= "[$_]";
}
else {
$span .= qq| <a href="files.cgi?pg=$_">$_</a> |;
}
}

if ($finish != $total) {
$span .= " <a href='files.cgi?pg=" . ($finish + 1) . "'>&gt;</a>";
$span .= qq| <a href="files.cgi?pg=$total">&gt;&gt;</a>|;
}
else {
$span .= " &gt; ";
$span .= qq|&gt;&gt;|;
}
return $span;
}

sub span {
my $span;
my $limit = 8;
my $hits = shift;
my $max = 9;
my $curr = ($page > 1) ? ($page + 1) : 1;
my $total = int(($hits/$max) + 1);
die "invalid page" if ($curr > $total);

my $start = ($curr > 4) ? ($curr - 4) : (1);
my $finish = ($curr + 4 > $total) ? ($total) : ($curr + 4);
my $i = ($finish - $start);

if (($i < $limit) and ($limit < $total)) {
($finish - $curr < $curr - $start) ? ($start += $i - $limit) : ($finish += $limit - $i)
}

if ($page > 0) {
my $prev = ($curr - 1 > 0) ? ($curr - 1) : 1;
$span .= qq|<a href="files.cgi?pg=1">&lt;&lt;</a> |;
$span .= qq|<a href="files.cgi?pg=$prev">&lt;</a> |;
}
else {
$span .= qq|&lt;&lt; |;
$span .= " &lt; ";
}

for ($start .. $finish) {
if ($_ == $page + 1){
$span .= "[$_]";
}
else {
$span .= qq| <a href="files.cgi?pg=$_">$_</a> |;
}
}

if ($curr != $total) {
my $next = $curr + 1;
$span .= " <a href='files.cgi?pg=$next'>&gt;</a>";
$span .= qq| <a href="files.cgi?pg=$total">&gt;&gt;</a>|;
}
else {
$span .= " &gt; ";
$span .= qq|&gt;&gt;|;
}
return $span;
}

$number_of_sites = (@results);

$result_count = $number_of_sites -1;

$pgsz = 5;

if ($result_count != 0) {
$pagecount = int($result_count / $pgsz);
if (($pagecount * $pgsz) != $result_count) {
$pagecount++;
}
}

if (!$A::rqpg) {
$rqpg = 1;
}
else {
$rqpg = $A::rqpg;
}

$firstresult = (($rqpg - 1) * $pgsz) + 1;
$lastresult = $firstresult + $pgsz - 1;
if ($lastresult > $result_count) {
$lastresult = $result_count;
}

$prev_page = $rqpg - 1;
$next_page = $rqpg + 1;
if ($rqpg == 1) {
$prev_link = "";
} else {
$prev_link = " <a href=\"/cgi-bin/en-ks5-pg.cgi?ks=$A::ks&pg=$A::pg&cat=$A::cat&id=$A::id&rqpg=$prev_page&pgsz=$pgsz\">" . "Previous Page" . "</a> &nbsp; ";
}
if ($rqpg == $pagecount) {
$next_link = "";
} else {
$next_link = "&nbsp; <a href=\"/cgi-bin/en-ks5-pg.cgi?ks=$A::ks&pg=$A::pg&cat=$A::cat&id=$A::id&rqpg=$next_page&pgsz=$pgsz\">" . "Next Page" . "</a>";
}

print qq|
Displaying <B>$firstresult</B>-<B>$lastresult</B> of <B>$result_count</B> $wording in this category. <BR><BR>
|;

if ($pagecount > 1) {
$pagelinks = $prev_link;
$pageno = 0;
while ($pageno < $pagecount) {
$pageno++;
if ($pageno == $rqpg) {
$thislink = " <b>$pageno</b> &nbsp;";
} else {
$thislink = " <a href=\"/cgi-bin/en-ks5-pg.cgi?ks=$A::ks&pg=$A::pg&cat=$A::cat&id=$A::id&rqpg=$pageno&pgsz=$pgsz\">" . $pageno . "</a> &nbsp;";
}
$pagelinks = $pagelinks . $thislink;
}
$pagelinks = $pagelinks . " " . $next_link;
} else {
$pagelinks = "";
}

# show records

foreach $found (@results[$firstresult .. $lastresult]) {

# ...

}

# print links

print "$pagelinks";

sub span {
my ($hits, $limit, $max, $span) = (shift, 8, $per_page, "");
my $half = $limit / 2;
my $total = int(($hits/$max) + 1);
die "invalid page" if ($page > $total);
my $start = ($page > $half) ? ($page - $half) : (1);
my $finish = ($page + $half > $total) ? ($total) : ($page + $half);
my $i = ($finish - $start);
(($finish - $page < $page - $start) ? ($start += $i - $limit) : ($finish += $limit - $i)) if (($i < $limit) and ($limit < $total));
$span .= ($page != 1) ? &link(1, "&lt;&lt;") . &link(($page - 1 or 1), "&lt;") : qq|&lt;&lt; &lt; |;
($span .= ($_ == $page) ? "[$_] " : &link($_)) for ($start .. $finish);
$span .= ($page != $total) ? &link($page + 1, "&gt;", "next") . &link($total, "&gt;&gt;") : qq|&gt; &gt;&gt; |;
return $span;
}

sub link {
my ($p, $d) = @_;
$d ||= $p;
return qq|<a href="query.cgi?$string&pg=$p">$d</a> |;
}

print span({ per_page => 5,
total => 100,
page => (param('page') || 1),
spread => 11,
url => 'test.cgi' });