sub sticktopic {

 &getmember("$inmembername");
 &moderator;
 $cleartoedit = "no";
  &mischeader("Поднятие темы");
    if (($membercode eq "ad") && ($inpassword eq $password)) { $cleartoedit = "yes"; }
    if (($inmembmod eq "yes") && ($inpassword eq $password)) { $cleartoedit = "yes"; }
    unless ($cleartoedit eq "yes") { $cleartoedit = "no"; }
        if ($cleartoedit eq "no" && $checked eq "yes") { &error("$ibtxt{'1553'}&$ibtxt{'0504'}"); } 
if (($cleartoedit eq "yes") && ($checked eq "yes")) { 
  my $file = "$ikondir" . "forum$inforum/$intopic.pl";
        open (ENT, $file);
        flock (ENT,2);
        $in = <ENT>;
        flock (ENT,8);
        close (ENT);
        ($topicid, $topictitle, $topicdescription, $threadstate, $threadposts ,$threadviews, $startedby, $startedpostdate, $lastposter, $lastpostdate, $sticky) = split(/\|/,$in);
        open(FILE, ">$file");
        flock(FILE, 2);
        print FILE "$intopic|$topictitle|$topicdescription|$threadstate|$threadposts|$threadviews|$startedby|$startedpostdate|$lastposter|$lastpostdate|yes";
        flock(FILE, 8);
        close(FILE);
        rebuildLIST(-Forum=>"$inforum");

            $output .= qq~
            <table cellpadding=0 cellspacing=0 border=0 width=$tablewidth bgcolor=$tablebordercolor align=center>
            <tr>
            <td>
            <table cellpadding=6 cellspacing=1 border=0 width=100%>
            <tr>
            <td bgcolor=$miscbacktwo valign=middle align=center><font face="$font" color=$fontcolormisc size=2><b>Поднятие темы</b></font></td></tr>
            <tr>
            <td bgcolor=$miscbackone valign=middle><font face="$font" color=$fontcolormisc size=1>
            <ul>
            <li><a href="$forumsprog?forum=$inforum">Вернуться в форум</a>
            <li><a href="$forumsummaryprog">Вернуться к списку форумов</a>
            </ul>
            </tr>
            </td>
            </table></td></tr></table>
            ~;

            } # end if clear to edit 
else { 
$inmembername =~ s/\_/ /g; 
$output .= qq~ 
<table cellpadding=0 cellspacing=0 border=0 width=$tablewidth bgcolor=$tablebordercolor align=center> 
<tr><td> 
<table cellpadding=6 cellspacing=1 border=0 width=100%> 
<form action="$thisprog" method="post"> 
<input type=hidden name="action" value="stick"> 
<input type=hidden name="checked" value="yes"> 
<input type=hidden name="forum" value="$inforum"> 
<input type=hidden name="topic" value="$intopic"> 
<tr> 
<td bgcolor=$miscbacktwo valign=middle colspan=2 align=center><font face="$font" color=$fontcolormisc size=2><b>Введите данные, чтобы войти в режим модерации [ Поднятия темы ]</b></font></td></tr> 
<tr> 
<td bgcolor=$miscbackone valign=middle><font face="$font" color=$fontcolormisc size=1>$ibtxt{'0306'}</font></td> 
<td bgcolor=$miscbackone valign=middle><input type=text name="membername" value="$inmembername" size=20></td></tr> 
<tr> 
<td bgcolor=$miscbackone valign=middle><font face="$font" color=$fontcolormisc size=1>$ibtxt{'0307'}</font></td> 
<td bgcolor=$miscbackone valign=middle><input type=password name="password" value="$inpassword" size=20> </td></tr> 
<tr> 
<td bgcolor=$miscbacktwo valign=middle colspan=2 align=center><input type=submit name="submit" value="$ibtxt{'0104'}"></form></td></tr></table></td></tr></table> 
~; 
} 

} # end sticktopic

###########################

sub unsticktopic {

    &getmember("$inmembername");
    &moderator;
    $cleartoedit = "no";
    &mischeader("Освобождение темы");
    if (($membercode eq "ad") && ($inpassword eq $password)) { $cleartoedit = "yes"; }
    if (($inmembmod eq "yes") && ($inpassword eq $password)) { $cleartoedit = "yes"; }
    unless ($cleartoedit eq "yes") { $cleartoedit = "no"; }
        if ($cleartoedit eq "no" && $checked eq "yes") { &error("$ibtxt{'1554'}&$ibtxt{'0504'}"); }  
if (($cleartoedit eq "yes") && ($checked eq "yes")) { 
        my $file = "$ikondir" . "forum$inforum/$intopic.pl";
        open (ENT, $file);
        flock (ENT,2);
        $in = <ENT>;
        flock (ENT,8);
        close (ENT);
        ($topicid, $topictitle, $topicdescription, $threadstate, $threadposts ,$threadviews, $startedby, $startedpostdate, $lastposter, $lastpostdate, $sticky) = split(/\|/,$in);
        open(FILE, ">$file");
        flock(FILE, 2);
        print FILE "$intopic|$topictitle|$topicdescription|$threadstate|$threadposts|$threadviews|$startedby|$startedpostdate|$lastposter|$lastpostdate|no";
        flock(FILE, 8);
        close(FILE);
        rebuildLIST(-Forum=>"$inforum");

            $output .= qq~
            <table cellpadding=0 cellspacing=0 border=0 width=$tablewidth bgcolor=$tablebordercolor align=center>
            <tr>
            <td>
            <table cellpadding=6 cellspacing=1 border=0 width=100%>
            <tr>
            <td bgcolor=$miscbacktwo valign=middle align=center><font face="$font" color=$fontcolormisc size=2><b>Освобождение темы</b></font></td></tr>
            <tr>
            <td bgcolor=$miscbackone valign=middle><font face="$font" color=$fontcolormisc size=1>
            <ul>
            <li><a href="$forumsprog?forum=$inforum">Вернуться в форум</a>
            <li><a href="$forumsummaryprog">Вернуться к списку форумов</a>
            </ul>
            </tr>
            </td>
            </table></td></tr></table>
            ~;

            } # end if clear to edit 
else { 
$inmembername =~ s/\_/ /g; 
$output .= qq~ 
<table cellpadding=0 cellspacing=0 border=0 width=$tablewidth bgcolor=$tablebordercolor align=center> 
<tr><td> 
<table cellpadding=6 cellspacing=1 border=0 width=100%> 
<form action="$thisprog" method="post"> 
<input type=hidden name="action" value="unstick"> 
<input type=hidden name="checked" value="yes"> 
<input type=hidden name="forum" value="$inforum"> 
<input type=hidden name="topic" value="$intopic"> 
<tr> 
<td bgcolor=$miscbacktwo valign=middle colspan=2 align=center><font face="$font" color=$fontcolormisc size=2><b>Введите данные, чтобы войти в режим модерации [ Освобождение темы ]</b></font></td></tr> 
<tr> 
<td bgcolor=$miscbackone valign=middle><font face="$font" color=$fontcolormisc size=1>$ibtxt{'0306'}</font></td> 
<td bgcolor=$miscbackone valign=middle><input type=text name="membername" value="$inmembername" size=20></td></tr> 
<tr> 
<td bgcolor=$miscbackone valign=middle><font face="$font" color=$fontcolormisc size=1>$ibtxt{'0307'}</font></td> 
<td bgcolor=$miscbackone valign=middle><input type=password name="password" value="$inpassword" size=20> </td></tr> 
<tr> 
<td bgcolor=$miscbacktwo valign=middle colspan=2 align=center><input type=submit name="submit" value="$ibtxt{'0104'}"></form></td></tr></table></td></tr></table> 
~; 
} 

} # end unsticktopic