--- db/prgsrc/db.cgi	2001/12/05 00:17:52	1.42
+++ db/prgsrc/db.cgi	2001/12/05 01:49:26	1.43
@@ -152,7 +152,9 @@ sub printform
   my $inputstring=textfield(-name=>'sstr',
                          -default=>param('sstr')||'',
                          -size=>50);
-  my $fields=checkbox_group('searchin',['Question','Answer','Comments','Authors','Sources'], [grep $searchin{$_}, keys %searchin],
+  my @df=keys %searchin;
+  @df=('Question', 'Answer') unless @df;
+  my $fields=checkbox_group('searchin',['Question','Answer','Comments','Authors','Sources'], [@df],
              'false',\%rusfieldname);
 
   my $metod=radio_group(-name=>'metod',-values=>['old','rus'],