From 8aba8ac06a5627acf0d529584df96bc8bf48a088 Mon Sep 17 00:00:00 2001
From: Victor Wagner <vitus@wagner.pp.ru>
Date: Tue, 1 Apr 2008 10:17:58 +0000
Subject: [PATCH] Fixed problem with substitution of message link

---
 forum/forum | 11 ++++++++---
 1 file changed, 8 insertions(+), 3 deletions(-)

diff --git a/forum/forum b/forum/forum
index d2ae686..e73f98a 100755
--- a/forum/forum
+++ b/forum/forum
@@ -1095,7 +1095,7 @@ sub reply {
 		show_error($forum,"В шаблоне сообщения отсутствует якорь для ссылок на него");
 	# подставляем mlink
 	substinfo($newmsg,[_tag=>"a","class"=>"mlink"],
-		href=>$cgi->path_info."#id");
+		href=>$cgi->path_info."#$id");
 	# подставляем mparent
 	my $parent_id=$cgi->param("id");
 	if ($parent_id) {
@@ -1151,8 +1151,13 @@ sub record_as_recent {
 			$msglist->attr("style",$style);
 			$msglist->look_down(class=>"message")->replace_with($msg);
 		} else {
-			my $prev = $msglist->look_down("class"=>"message");
-			$prev->preinsert($msg);	
+			my @msgs = $msglist->look_down("class"=>"message");
+			if (@msgs > $forum->{replies_per_page}) {
+				for (my $i=$#msgs;$i>=$forum->{replies_per_page};$i--) {
+					$msgs[$i]->delete;
+				}
+			}	
+			$msgs[0]->preinsert($msg);	
 		}
 	}
 	savetree($forum->{forumroot}."/recent.html",$tree,$lockfd);
-- 
2.39.2