# Usage: &CmdFactInfo($faqtoid, $query);
sub CmdFactInfo {
my ($faqtoid, $query) = (lc $_[0], $_[1]);
- $faqtoid =~ s/^cmd:/CMD:/;
my @array;
my $string = "";
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"
);
# 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);
sub CmdListAuth {
my ($query) = @_;
- my $maxshow = &::getChanConfDefault('maxListReplyCount', 15);
+ my $maxshow = &::getChanConfDefault('maxListReplyCount', 15, $chan);
my @list = &searchTable("factoids","factoid_key", "created_by", "^$query!");
@list=grep(!/\#DEL\#$/,@list) if (scalar(@list) > $maxshow);