<%
# ページ
my $pagewid = 9;
my $pagemin = ($var{page} - $pagewid > 0) ? $var{page} - $pagewid : 1;
my $pagemax = ($var{page} + $pagewid < $var{numpage}) ?
$var{page} + $pagewid : $var{numpage};
my $searchuri = "search.cgi?srcsid=$var{srcsid}&searchnum=$var{searchnum}";
print "
ページ : ";
print "..." if($pagemin > 1);
foreach my $i ($pagemin .. $pagemax) {
print (($i == $var{page}) ? "
$i"
: "
$i");
}
print "..." if($pagemax < $var{numpage});
print " ( 全 $var{numpage} ページ )
HTML
# 表
my $nummin = ($var{page} - 1) * $var{searchnum} + 1;
my $nummax = $var{page} == $var{numpage} ? $var{total} :
$var{page} * $var{searchnum};
my ($DID, $RID, $STATE, $DATE, $NAME, $EMAIL, $TITLE, $MESSAGE) = (0 .. 7);
my $state = $dbi->{misc}{sysprint_state};
my $active = $dbi->{db}{sysstate}{active};
my ($date, $message);
foreach my $data (@{ $var{list} }) { %>