version 1.34, 2001/11/20 21:33:36
|
version 1.35, 2001/11/21 02:02:09
|
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 $debug=0; #added by R7 |
my $debug=0; #added by R7 |
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 179 print "$query",br if $printqueries;
|
Line 179 print "$query",br if $printqueries;
|
|
|
my $kvo=0; |
my $kvo=0; |
push @$allnf, @{$_} foreach @nf; |
push @$allnf, @{$_} foreach @nf; |
print "nf=@$allnf"; |
print "nf=@$allnf" if $printqueries; |
|
|
foreach $i (0..$#w) #запросы в базу... |
foreach $i (0..$#w) #запросы в базу... |
{ |
{ |
Line 293 foreach (keys %wordsof)
|
Line 293 foreach (keys %wordsof)
|
|
|
############ |
############ |
|
|
print "tasks=@tasks"; |
print "tasks=@tasks" if $printqueries; |
|
|
#print "$_ $relevance{$_} | " foreach @tasks; |
#print "$_ $relevance{$_} | " foreach @tasks; |
#print br; |
#print br; |