Объединенный Открытый Проект

далее найти <br>    $lastcategoryplace = $categoryplace;<br>    undef $forumlastvisit; undef $forummoderator; undef $modout;<br>
и перед этим текстом вставить: <br>      }  # end if privateforum<br>

Далее, в начале файла найти <br>        &getmemberstime("$inmembername");        <br>        &getlastvisit;<br>        }<br>
и вставить перед ним <br>        getmember("$inmembername");<br>
На этом все.

Файл ikon.lib
Найти в процедуре forumjump: <br>foreach $forum (@forums) { #start foreach @forums<br>    chomp $forum;<br>    ($forumid, $category, $categoryplace, $forumname, $forumdescription) = <p>split(/\|/,$forum);<br>    $tempid = $categoryplace*$forumcount+$forumid;<br>    $rearrange = <p>("$tempid|$categoryplace|$category|$forumname|$forumdescription|$forumid");<br>    push (@rearrangedforums, $rearrange);<p>} # end foreach (@forums)<p>
и заменить на: <br>foreach $forum (@forums) { #start foreach @forums<br>    chomp $forum;<br>    ($forumid, $category, $categoryplace, $forumname, $forumdescription, <p>$forummoderator, $htmlstate, $idmbcodestate, $privateforum) = <p>split(/\|/,$forum);<br>    $tempid = $categoryplace*$forumcount+$forumid;<br>    if ($privateforum ne "yes" || $allowedentry{$forumid} eq "yes") {    <br>      $rearrange = <p>("$tempid|$categoryplace|$category|$forumname|$forumdescription|$forumid");<br>      push (@rearrangedforums, $rearrange);<br>    }  <p>} # end foreach (@forums)<br>

Возможна еще одна модификация: сделать темы, недоступные для гостей, невидимыми

для них. Для этого надо заменить условие на вот такое: <br>    if ($privateforum ne "yes" || $allowedentry{$forumid} eq "yes" || <p>($inmembername ne "Guest" && $privateforum eq "noguest")) {    <br>

[q]

условие для скрытия от гостей форумов

[/q]