cart.cgiの255行目あたり。
前ページと次ページの間に入れる。
print "<td>\n";
open(IN,$logfile);
@log_kazu = <IN>;
close(IN);
$yousosuu = @log_kazu;
$pejisu = int($yousosuu/$gview);
if (!($yousosuu%$gview)) { $pejisu--; }
print " / ";
for(0..$pejisu){
$p = $_ + 1;
if ($page/$gview == $_) {
print qq|$p / |;
} else {
print qq|<a href="$script?page=| .($_*$gview) .qq|">$p</a> / |;
}
}
print "</td>\n";
動作確認済み。
|