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 d842ae1727e5146c28f8120b931f698644bbc66d..01a5ff0d9a539797393d6bffe4218db5cfa94153 100644 (file)
--- 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);