lynx
Advanced lynx | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Xnom
Супер! Спасибо! Только не работает в таком виде. Ты сам подумай, для начала ты не открываешь файл news.cgi
Впрочем, все равно большое спасибо, с твоей рыбой я все довела до ума.
Вот так работает:
Меняем:
Код:
### start displaying the announcements.
$filetoopen = "$ikondir" . "data/news.cgi";
$filetoopen = &stripMETA($filetoopen);
open(FILE, "$filetoopen");
@announcements = <FILE>;
close(FILE);
$postcountcheck = 0;
$totals = @announcements;
if ($totals eq "0") {
$dateposted = time;
@announcements[0] = qq~$ibtxt{'0316'}|$dateposted|$ibtxt{'0317'} <a href="$thisprog?action=add">Äîáàâèòü</a> $ibtxt{'0318'}~;
}
foreach $line (@announcements) {
($title, $dateposted, $post, $myposter) = split(/\|/, $line);
|
На:
Код:
### start displaying the announcements.
$filetoopen = "$ikondir" . "data/news.cgi";
$filetoopen = &stripMETA($filetoopen);
open(FILE, "$filetoopen");
@announcements = <FILE>;
close(FILE);
$postcountcheck = 0;
###start pages
$instart = $query -> param('start');
$pagestart = $query -> param('pagestart');
$nado=10; #количество выводимых сообщений на странице
$numberofitems = @announcements;
if ($numberofitems eq "0") {
$dateposted = time;
@announcements[0] = qq~$ibtxt{'0316'}|$dateposted|$ibtxt{'0317'} <a href="$thisprog?action=add"><img src="$imagesurl/images/a_add.gif" border=0"></a> $ibtxt{'0318'}~;
}
else{
$kolvopages=$numberofitems;
$numberofpages = $numberofitems / $nado;
if ($kolvopages > $nado) {
$showmore = "yes";
if ((!$instart) or ($instart < 0)) { $instart = 0; }
if ($instart > 0) { $startarray = $instart; } else { $startarray = 0; }
$endarray = $instart + $nado - 1;
if ($endarray < ($numberofitems - 1)) { $more = "yes"; }
if (($endarray > ($nado - 1)) and ($more ne "yes")) { $endarray = $numberofitems - 1; }
}
else {
$showmore = "no";
$startarray = 0;
$pages = "";
$endarray = $numberofitems - 1;
}
if ($showmore eq "yes") {
if ($nado < $numberofitems) {
($integer,$decimal) = split(/\./,$numberofpages);
if ($decimal > 0) { $numberofpages = $integer + 1; }
$pagestart = 0; $counter = 0;
while ($numberofpages > $counter) {
$counter++;
if ($instart ne $pagestart) { $pages .= qq~<a href="$thisprog?start=$pagestart"><font face="$font" color=$fonthighlight size=$dfontsize1><b>$counter</b></font></a> ~; }
else { $pages .= qq~
<font face="$font" color=$menufontcolor size=$dfontsize1>$counter </font>~; }
$pagestart = $pagestart + $nado;
}
}
$pages = qq~<font face="$font" color=$menufontcolor size=$dfontsize1><b>Страницы объявлений:</b> $pages ~;
} }
$output .= qq~<tr><td bgcolor=#ffffff>$pages</td></tr>~;
foreach $line (@announcements[$startarray .. $endarray]) {
($title, $dateposted, $post) = split(/\|/, $line);
###end pages
|
Я еще убрала линк на текущую пагу - зачем линковать пагу, если на ней находишься, и чуть вывод изменила, мне очень не нравятся квадратные скобки, я их убрала 
Там лишняя переменная, может, и без нее можно, вообще не претендую на оптимальность кода, тестите, плиз |
Всего записей: 11712 | Зарегистр. 08-05-2001 | Отправлено: 05:48 01-12-2002 | Исправлено: lynx, 15:20 02-12-2002 |
|
$title, $dateposted, $post, $myposter) = split(/\|/, $line);