- remove debugging info in two instances.
git-svn-id: https://svn.code.sf.net/p/infobot/code/trunk@613
c11ca15a-4712-0410-83d8-
924469b57eb5
# scalar @new, !$flag
my $unread = scalar @new;
my $total = scalar keys %{ $::news{$chan} };
- if (!$flag || &::IsChanConf("newsTellUnread")) {
+ if (!$flag && &::IsChanConf("newsTellUnread")) {
return unless ($unread);
# just a temporary measure not to flood ourself off the
foreach (keys %{ $chanconf{$c} }) {
next unless (/^$param$/);
- &DEBUG("chanconf{$c}{$_} ...");
return $chanconf{$c}{$_};
}
}
my $query = "SELECT $select FROM $table WHERE $key LIKE ".
&dbQuote($str);
my $sth = $dbh->prepare($query);
- &DEBUG("query => '$query'.");
+
&SQLDebug($query);
if (!$sth->execute) {
&WARN("Search($query)");