db/prgsrc/db.cgi - diff

Return to db.cgi CVS log

Up to [Local Repository] / db / prgsrc

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;