";
my $size=$#rec;
my $pg=$page+1;
my $i=0;
my $msg="";
for(reverse @rec) {
my %D=parse_msg($_);
if($D{name} || $D{email}) {
if($i>=$page*$pagesize && $i<($page+1)*$pagesize) {
$D{url}="" if $D{url} eq "http://";
my ($mail,$url, $col)=("","","#FFFFFF");
$url=$D{url};
$url=substr($url,0,25)."..." if length($url)>25;
$url="WWW:
$url \ " if $D{url};
$mail=" $D{email} \ " if $D{email};
$mail.="
" if $mail;
$mail.="ICQ: $D{ICQ}" if $D{ICQ};
$col="#f2f2f2" if $i&1;
$D{phone}="Phone: $D{phone}" if $D{phone};
$D{comm}=~ s/(\S{30})/$1 /g;
$D{comm}=~ s/
//ig;
$D{phone}=~ s/(\S{30})/$1 /g;
$msg.=<<"EOF";
|
E-mail: $mail |
$D{phone} |
$url |
|
$D{comm} |
|
EOF
}
} # end if
$i++;
} # end for
my $ppage=$page-1;
my $nav=" ";
$nav="Предыдущая страница" if($page>0);
my $nav2=" ";
$nav2=qq{Следующая страница} if($size>$pg*$pagesize);
# $s.=" | ";
# $s.="";
# $s.="Всего записей: $size страница $pg | ";
# $s.="$nav $nav2 | ";
# $s.="
| ";
$size=0 if $size<0;
$s.=<<"EOF";
Всего записей: $size страница $pg |
$nav2 |
|
EOF
# $s.=" | ";
$s.=$msg;
$s.=<<"EOF";
|
EOF
# $s.="$nav | $nav2 |
";
# $s.="Поместить объявление |
";
$s.=class_inc::new_msg($fn);
if($fn eq "job_find" || $fn eq "job_offer") {
$MSG::MSG='Место Встречи > Работа';
$s.="";
$s.="Поиск работы" if $fn eq "job_offer";
$s.="Предложение работы" if $fn eq "job_find";
$s.=" |
";
} else {
$s.="Вернуться в главное меню объявлений |
";
}
$s.="
";
$s;
}
} # END of get class
# Вызов без параметра
sub dflt {
my ($NM,$s)=@_;
my $site='rb';
$site='rla' if $NM eq 'class_la.pl';
if(param("menu") eq "job") {
$MSG::MSG='Место Встречи > Работа';
$s.=<