X-Git-Url: http://wagner.pp.ru/gitweb/?a=blobdiff_plain;ds=sidebyside;f=forum%2Fforum;h=8c966e93bec89259db459e407268233edc289762;hb=577989dad1f989210c7b3a7a6917c08ae3b95c8b;hp=943ff006ed01bc76fd3a7f443a6677a1197fd5cb;hpb=bfbaf89f58780359d1a36f9956b47a8189e558d2;p=oss%2Fstilllife.git

diff --git a/forum/forum b/forum/forum
index 943ff00..8c966e9 100755
--- 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/\/[^\/]*$//;