Removed some debug output

[oss/stilllife.git] / forum / forum

diff --git a/forum/forum b/forum/forum
index 943ff006ed01bc76fd3a7f443a6677a1197fd5cb..8c966e93bec89259db459e407268233edc289762 100755 (executable)
--- a/forum/forum
+++ b/forum/forum
@@ -1246,10 +1246,8 @@ sub show_rights {
                        last if $d eq $forum->{forumroot};
                
                }
-       print STDERR "Found permission files in @dirs\n";       
        # Подставляем их куда надо
                for $d (@dirs) {
-                       print STDERR "substituting dir $d\n";
                        my %users = getperms($d);
                        my $title=gettitle($d."/".$forum->{indexfile});
                        my $item = newlistelement($tree,"dir","dirlist");
@@ -1518,7 +1516,6 @@ sub dispatch_objtype {
                                if exists($actions{'topic'});
                }       
        } elsif (-d $path_translated && -f $path_translated ."/".  $forum->{indexfile}) {
-                       print STDERR "Dispatching forum\n";
                $actions{'forum'}->($cgi,$forum,$path_translated) 
                        if exists($actions{'forum'});
 
@@ -1651,7 +1648,7 @@ sub delete_topic {
        } # FIXME при удалении непустой темы модератором почистить recent.html       
        my ($tree,$lockfd) = gettree($dir . "/".$forum->{indexfile});
        delete_from_list($tree,"topiclist","topic",$id);
-       savetree($tree,$dir ."/".$forum->{indexfile});
+       savetree($dir ."/".$forum->{indexfile},$tree);
        unlink $topic;
        my $redirect_url = $cgi->path_info;
        $redirect_url =~ s/\/[^\/]*$//;