major re-organisation of the different SQL files; cleanup and fixing of the postgres...

[infobot.git] / src / Modules / Factoids.pl

diff --git a/src/Modules/Factoids.pl b/src/Modules/Factoids.pl
index 50a98ea3e034c55628a69781a6491643152d6d69..91eb3e7cbde2f292b2a23597d5e0ae80041cd582 100644 (file)
--- a/src/Modules/Factoids.pl
+++ b/src/Modules/Factoids.pl
@@ -14,7 +14,6 @@ use vars qw(%param);
 # Usage: &CmdFactInfo($faqtoid, $query);
 sub CmdFactInfo {
     my ($faqtoid, $query) = (lc $_[0], $_[1]);
-    $faqtoid =~ s/^cmd:/CMD:/;
     my @array;
     my $string = "";
 
@@ -129,7 +128,7 @@ sub CmdFactInfo {
        return;
     }
 
-    &pSReply("$factinfo{'factoid_key'} -- ". join("; ", @array) .".");
+    &performStrictReply("$factinfo{'factoid_key'} -- ". join("; ", @array) .".");
     return;
 }
 
@@ -424,7 +423,7 @@ sub CmdFactStats {
        return &formListReply(1, $prefix, @list);
 
     } elsif ($type =~ /^locked$/i) {
-       my %hash = &sqlSelectColhash("factoids",
+       my %hash = &sqlSelectColHash("factoids",
                "factoid_key,locked_by", undef,
                "WHERE locked_by IS NOT NULL"
        );
@@ -691,8 +690,7 @@ sub CmdFactStats {
 
        # parse the results.
        &msg($who, "Fixed $fixed factoids.");
-       &msg($who, "Self looped factoids removed: ".
-               sort(keys %loop) ) if (scalar keys %loop);
+       &msg($who, "Self looped factoids removed: ". keys %loop ) if (scalar keys %loop);
 
        my $prefix = "Loose link (dead) redirections in factoids ";
        return &formListReply(1, $prefix, @newlist);
@@ -739,7 +737,7 @@ sub CmdFactStats {
 
 sub CmdListAuth {
     my ($query) = @_;
-    my $maxshow = $::param{'maxListReplyCount'} || 10;
+    my $maxshow = &::getChanConfDefault('maxListReplyCount', 15, $chan);
     my @list = &searchTable("factoids","factoid_key", "created_by", "^$query!");
     @list=grep(!/\#DEL\#$/,@list) if (scalar(@list) > $maxshow);