X-Git-Url: http://www.wagner.pp.ru/gitweb/?p=oss%2Fstilllife.git;a=blobdiff_plain;f=forum%2Fforum;fp=forum%2Fforum;h=3a58ea626d0b87dc66b265f7eb974081caac6ab9;hp=943ff006ed01bc76fd3a7f443a6677a1197fd5cb;hb=354d96de80b7291fa203772946bb289a724f3e43;hpb=700aa2fb3dd2430deed35dcbc6970a35fd3cc704

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 '<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">'.
 	$tree->as_HTML("<>&");
 }	
