From 2307f2ef5cf6b4bab143233fd0323b6b4c47e6e7 Mon Sep 17 00:00:00 2001
From: timriker <timriker@c11ca15a-4712-0410-83d8-924469b57eb5>
Date: Wed, 8 Sep 2004 18:38:15 +0000
Subject: [PATCH] discard deleted if too many

git-svn-id: https://svn.code.sf.net/p/infobot/code/trunk/blootbot@1027 c11ca15a-4712-0410-83d8-924469b57eb5
---
 src/Modules/Factoids.pl | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/src/Modules/Factoids.pl b/src/Modules/Factoids.pl
index 298e85d..50a98ea 100644
--- a/src/Modules/Factoids.pl
+++ b/src/Modules/Factoids.pl
@@ -739,7 +739,9 @@ sub CmdFactStats {
 
 sub CmdListAuth {
     my ($query) = @_;
+    my $maxshow = $::param{'maxListReplyCount'} || 10;
     my @list = &searchTable("factoids","factoid_key", "created_by", "^$query!");
+    @list=grep(!/\#DEL\#$/,@list) if (scalar(@list) > $maxshow);
 
     my $prefix = "factoid author list by '$query' ";
     &performStrictReply( &formListReply(1, $prefix, @list) );
-- 
2.39.2