--- db/prgsrc/db.cgi	2001/11/26 10:31:49	1.37
+++ db/prgsrc/db.cgi	2001/11/30 23:48:53	1.38
@@ -21,7 +21,7 @@ my $thislocale;
 
 $searchin{'question'}=param('Question');
 $searchin{'answer'}=param('Answer');
-$searchin{'comment'}=param('Comment');
+$searchin{'comments'}=param('Comments');
 $searchin{'authors'}=param('Authors');
 $searchin{'sources'}=param('Sources');
 my $all=param('all');
@@ -161,7 +161,7 @@ print "$query",br if $printqueries;
             }
 
 
-            my @bad=grep {!$nf[$_]} 0..$#w; # @bad -- номера словоформ,
+            my @bad=grep {!@{$nf[$_]}} 0..$#w; # @bad -- номера словоформ,
                                            # которых нет в словаре
 
             if (@bad) #есть неопознанные словоформы