From: timriker <timriker@c11ca15a-4712-0410-83d8-924469b57eb5>
Date: Mon, 28 Jun 2004 19:08:36 +0000 (+0000)
Subject: sometimes hide #DEL# on listkeys
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=2aca826e095478e15fad5d27da1964c1b8fdde44;p=infobot.git

sometimes hide #DEL# on listkeys


git-svn-id: https://svn.code.sf.net/p/infobot/code/trunk/blootbot@964 c11ca15a-4712-0410-83d8-924469b57eb5
---

diff --git a/src/Modules/Search.pl b/src/Modules/Search.pl
index d842ae1..01a5ff0 100644
--- a/src/Modules/Search.pl
+++ b/src/Modules/Search.pl
@@ -13,15 +13,19 @@ sub Search {
     my ($type, $str) = @_;
     my $start_time = &::timeget();
     my @list;
+    my $maxshow = $::param{'maxListReplyCount'} || 10;
 
     $type =~ s/s$//;	# nice work-around.
 
-    if ($type eq "value") {	# search by value.
+    if ($type eq "value") {
+	# search by value.
 	@list = &::searchTable("factoids", "factoid_key", "factoid_value", $str);
-    } else {			# search by key.
+    } else {
+	# search by key.
 	@list = &::searchTable("factoids", "factoid_key", "factoid_key", $str);
     }
 
+    @list=grep(!/\#DEL\#$/,@list) if (scalar(@list) > $maxshow);
     my $delta_time = sprintf("%.02f", &::timedelta($start_time) );
     &::status("search: took $delta_time sec for query.") if ($delta_time > 0);