390 |
my $max_page = int( $results / $on_page ); |
my $max_page = int( $results / $on_page ); |
391 |
my $page = 0; |
my $page = 0; |
392 |
|
|
393 |
my $link_fmt = '<a href = "#" onclick="document.forma.offset.value=%d;document.forma.submit();">%s</a>'; |
sub page_link($$$) { |
394 |
|
my ($param,$page,$display) = @_; |
395 |
|
|
396 |
|
$param->{'offset'} = $page; |
397 |
|
|
398 |
|
my $html = '<a href = "' . $MyURL; |
399 |
|
my $del = '?'; |
400 |
|
foreach my $k (keys %{ $param }) { |
401 |
|
if ($param->{$k}) { |
402 |
|
$html .= $del . $k . '=' . ${EscURI( $param->{$k} )}; |
403 |
|
$del = '&'; |
404 |
|
} |
405 |
|
} |
406 |
|
$html .= '">' . $display . '</a>'; |
407 |
|
} |
408 |
|
|
409 |
$retHTML .= '<div style="text-align: center;">'; |
$retHTML .= '<div style="text-align: center;">'; |
410 |
|
|
411 |
if ($offset > 0) { |
if ($offset > 0) { |
412 |
$retHTML .= sprintf($link_fmt, $offset - 1, '<<') . ' '; |
$retHTML .= page_link($param, $offset - 1, '<<') . ' '; |
413 |
} |
} |
414 |
|
|
415 |
while ($page <= $max_page) { |
while ($page <= $max_page) { |
416 |
if ($page == $offset) { |
if ($page == $offset) { |
417 |
$retHTML .= $del . '<b>' . ($page + 1) . '</b>'; |
$retHTML .= $del . '<b>' . ($page + 1) . '</b>'; |
418 |
} else { |
} else { |
419 |
$retHTML .= $del . sprintf($link_fmt, $page, $page + 1); |
$retHTML .= $del . page_link($param, $page, $page + 1); |
420 |
} |
} |
421 |
|
|
422 |
if ($page < $offset - $pager_pages && $page != 0) { |
if ($page < $offset - $pager_pages && $page != 0) { |
434 |
} |
} |
435 |
|
|
436 |
if ($offset < $max_page) { |
if ($offset < $max_page) { |
437 |
$retHTML .= ' ' . sprintf($link_fmt, $offset + 1, '>>'); |
$retHTML .= ' ' . page_link($param, $offset + 1, '>>'); |
438 |
} |
} |
439 |
|
|
440 |
$retHTML .= "</div>"; |
$retHTML .= "</div>"; |