db/prgsrc/db.cgi - diff

Return to db.cgi CVS log

Up to [Local Repository] / db / prgsrc

version 1.37, 2001/11/26 10:31:49	version 1.38, 2001/11/30 23:48:53
Line 21 my $thislocale;	Line 21 my $thislocale;

$searchin{'question'}=param('Question');	$searchin{'question'}=param('Question');
$searchin{'answer'}=param('Answer');	$searchin{'answer'}=param('Answer');
$searchin{'comment'}=param('Comment');	$searchin{'comments'}=param('Comments');
$searchin{'authors'}=param('Authors');	$searchin{'authors'}=param('Authors');
$searchin{'sources'}=param('Sources');	$searchin{'sources'}=param('Sources');
my $all=param('all');	my $all=param('all');
Line 161 print "$query",br if $printqueries;	Line 161 print "$query",br if $printqueries;
}	}


my @bad=grep {!$nf[$_]} 0..$#w; # @bad -- номера словоформ,	my @bad=grep {!@{$nf[$_]}} 0..$#w; # @bad -- номера словоформ,
# которых нет в словаре	# которых нет в словаре

if (@bad) #есть неопознанные словоформы	if (@bad) #есть неопознанные словоформы