--- db/prgsrc/db.cgi	2001/12/04 01:17:12	1.41
+++ db/prgsrc/db.cgi	2001/12/05 01:49:26	1.43
@@ -152,14 +152,16 @@ 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'],
-                       -default=>param('metod')||'rus',
+                       -default=>(param('metod')||'rus'),
                        -labels=>\%rusfieldname);
   my $all=radio_group(-name=>'all',-values=>['yes','no'],
-                       -default=>param('all')||'no',
+                       -default=>(param('all')||'no'),
                        -labels=>{'yes'=>'Все','no'=>'Любое'});
 
 #################################################
@@ -210,7 +212,7 @@ sub proxy
          $good{$_}=1 if $c{$_}<200;
       }
 
-      $good{$words[$_]}=0 foreach 11..$#words;
+      $good{$words[$_]}=0 foreach 16..$#words;
 
 #      foreach (@list)
 #      {