--- db/prgsrc/db.cgi	2001/10/22 20:39:34	1.26
+++ db/prgsrc/db.cgi	2001/10/23 00:01:03	1.28
@@ -8,7 +8,7 @@ use Time::Local;
 use POSIX qw(locale_h);
 use locale;
 open STDERR, ">errors";
-my $printqueries=1;
+my $printqueries=0;
 my %fieldname= (0,'Question', 1, 'Answer', 2, 'Comments', 3, 'Authors', 4, 'Sources');
 my %searchin;
 
@@ -177,6 +177,7 @@ print "$query",br if $printqueries;
 
             my $kvo=0;
             push @$allnf, @{$_} foreach @nf;
+print "allnf=@$allnf\n".br if $printqueries;
 
             foreach $i (0..$#w) #запросы в базу...
             {