--- db/prgsrc/db.cgi	2001/11/20 21:33:36	1.34
+++ db/prgsrc/db.cgi	2001/11/21 02:02:09	1.35
@@ -8,7 +8,7 @@ use Time::Local;
 use POSIX qw(locale_h);
 use locale;
 #open STDERR, ">errors";
-my $printqueries=1;
+my $printqueries=0;
 my $debug=0; #added by R7
 my %fieldname= (0,'Question', 1, 'Answer', 2, 'Comments', 3, 'Authors', 4, 'Sources');
 my %searchin;
@@ -179,7 +179,7 @@ print "$query",br if $printqueries;
 
             my $kvo=0;
             push @$allnf, @{$_} foreach @nf;
-print "nf=@$allnf";
+	    print "nf=@$allnf" if $printqueries;
 
             foreach $i (0..$#w) #запросы в базу...
             {
@@ -293,7 +293,7 @@ foreach (keys %wordsof)
 
 ############
 
-print "tasks=@tasks";
+print "tasks=@tasks" if $printqueries;
 
 #print "$_ $relevance{$_} | " foreach @tasks;
 #print br;