From: Victor Wagner Date: Sun, 4 May 2008 14:55:11 +0000 (+0000) Subject: Fixed invalid call to savetree in delete_topic X-Git-Url: http://wagner.pp.ru/gitweb/?a=commitdiff_plain;h=354d96de80b7291fa203772946bb289a724f3e43;p=oss%2Fstilllife.git Fixed invalid call to savetree in delete_topic --- diff --git a/forum/forum b/forum/forum index 943ff00..3a58ea6 100755 --- a/forum/forum +++ b/forum/forum @@ -1651,7 +1651,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/\/[^\/]*$//; @@ -2031,6 +2031,7 @@ sub replacefile { } sub savetree { my ($filename,$tree,$lockfd) = @_; + print STDERR "Savetree(@_)\n"; replacefile($filename,output_html($tree)); close $lockfd if defined($lockfd); } @@ -2047,6 +2048,7 @@ sub discardtree { # sub output_html { my $tree=shift; + print STDERR "output_html(@_)\n"; return ''. $tree->as_HTML("<>&"); }