--- db/prgsrc/db.cgi 2001/12/04 01:17:12 1.41 +++ db/prgsrc/db.cgi 2001/12/05 00:17:52 1.42 @@ -156,10 +156,10 @@ sub printform '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 +210,7 @@ sub proxy $good{$_}=1 if $c{$_}<200; } - $good{$words[$_]}=0 foreach 11..$#words; + $good{$words[$_]}=0 foreach 16..$#words; # foreach (@list) # {