1294 |
EOF |
EOF |
1295 |
# generate page-by-page output |
# generate page-by-page output |
1296 |
my $on_page=10; |
my $on_page=10; |
1297 |
my $max_page=int(($#wml + $on_page -1) / $on_page); |
my $max_page=int(($#wml + $on_page) / $on_page) - 1; |
1298 |
|
|
1299 |
if ($WAP) { |
if ($WAP) { |
1300 |
my $p = $QUERY_ARGS{"p"} || 1; # current page |
my $p = $QUERY_ARGS{"p"} || 1; # current page |
1305 |
} |
} |
1306 |
# navigation |
# navigation |
1307 |
$OUT_BUF .= "<p>"; |
$OUT_BUF .= "<p>"; |
1308 |
for (my $i = 1; $i < $max_page; $i++) { |
for (my $i = 1; $i <= $max_page; $i++) { |
1309 |
if ($i == $p) { |
if ($i == $p) { |
1310 |
$OUT_BUF .= "<b>$i</b> "; |
$OUT_BUF .= "<b>$i</b> "; |
1311 |
} else { |
} else { |