db/prgsrc/db.cgi - diff

Return to db.cgi CVS log

Up to [Local Repository] / db / prgsrc

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)
# {	# {