version 1.41, 2001/12/04 01:17:12
|
version 1.42, 2001/12/05 00:17:52
|
Line 156 sub printform
|
Line 156 sub printform
|
'false',\%rusfieldname); |
'false',\%rusfieldname); |
|
|
my $metod=radio_group(-name=>'metod',-values=>['old','rus'], |
my $metod=radio_group(-name=>'metod',-values=>['old','rus'], |
-default=>param('metod')||'rus', |
-default=>(param('metod')||'rus'), |
-labels=>\%rusfieldname); |
-labels=>\%rusfieldname); |
my $all=radio_group(-name=>'all',-values=>['yes','no'], |
my $all=radio_group(-name=>'all',-values=>['yes','no'], |
-default=>param('all')||'no', |
-default=>(param('all')||'no'), |
-labels=>{'yes'=>'Все','no'=>'Любое'}); |
-labels=>{'yes'=>'Все','no'=>'Любое'}); |
|
|
################################################# |
################################################# |
Line 210 sub proxy
|
Line 210 sub proxy
|
$good{$_}=1 if $c{$_}<200; |
$good{$_}=1 if $c{$_}<200; |
} |
} |
|
|
$good{$words[$_]}=0 foreach 11..$#words; |
$good{$words[$_]}=0 foreach 16..$#words; |
|
|
# foreach (@list) |
# foreach (@list) |
# { |
# { |