NecroHill
Advanced Member | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
вот первоначальный вид куска с ссылкой (из Board.pm):
Код:
sub render_forum {
my ($obj, $this_forum) = @_;
# Double check the validity of the BD
next unless defined $this_forum->{'FORUM_ID'};
if ($this_forum->{'FORUM_VIEW_THREADS'} ne '*') {
next unless grep { $_ == $iB::MEMBER->{'MEMBER_GROUP'} } (split /,/,$this_forum->{'FORUM_VIEW_THREADS'});
}
$this_forum->{'N_LINK'} = ($this_forum->{'L_TOPIC_TITLE'} and defined $this_forum->{'L_TOPIC_ID'})
? qq[<a href='$iB::INFO->{'BOARD_URL'}/ikonboard.$iB::INFO->{'CGI_EXT'}?s=$iB::SESSION;act=ST;f=$this_forum->{'FORUM_ID'};t=$this_forum->{'L_TOPIC_ID'}' class='misc'>$this_forum->{'L_TOPIC_TITLE'}</a>]
: $Boards::lang->{'f_none'};
|
вот со вставленными фрагментами из Forum.pm (красным помечено)
Код:
sub render_forum {
my ($obj, $this_forum) = @_;
my $IN = { DB => "", DATA => "", PIN => "", @_,};
my $topic = $IN->{'DATA'};
my $Pages = ($topic->{'TOPIC_POSTS'} + 1) / $iB::INFO->{'DISPLAY_MAX_POSTS'};
my $maxpages = ($Pages - 1) * $iB::INFO->{'DISPLAY_MAX_POSTS'};
$maxpages = 0 if $maxpages < 0;
# Double check the validity of the BD
next unless defined $this_forum->{'FORUM_ID'};
if ($this_forum->{'FORUM_VIEW_THREADS'} ne '*') {
next unless grep { $_ == $iB::MEMBER->{'MEMBER_GROUP'} } (split /,/,$this_forum->{'FORUM_VIEW_THREADS'});
}
$this_forum->{'N_LINK'} = ($this_forum->{'L_TOPIC_TITLE'} and defined $this_forum->{'L_TOPIC_ID'})
? qq[<a href='$iB::INFO->{'BOARD_URL'}/ikonboard.$iB::INFO->{'CGI_EXT'}?s=$iB::SESSION;act=ST;f=$this_forum->{'FORUM_ID'};t=$this_forum->{'L_TOPIC_ID'};st=$maxpages' class='misc'>$this_forum->{'L_TOPIC_TITLE'}</a>]
: $Boards::lang->{'f_none'};
|
а вот ошибка, которую выдает:
Ikonboard has exited with the following error:
Can't use string ("") as a HASH ref while "strict refs" in use
This error was reported at: Sources/Boards.pm line 394.
а в 394 строке находится:
my $Pages = ($topic->{'TOPIC_POSTS'} + 1) / $iB::INFO->{'DISPLAY_MAX_POSTS'};
вот собсно и все.
может кто нибудь поможет разобраться? |
Всего записей: 803 | Зарегистр. 23-12-2001 | Отправлено: 11:35 11-04-2002 | Исправлено: NecroHill, 11:38 11-04-2002 |
|
и т.д.
понятное дело...только тольку от этого нету
