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