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.43, 2001/12/05 01:49:26
Line 152 sub printform	Line 152 sub printform
my $inputstring=textfield(-name=>'sstr',	my $inputstring=textfield(-name=>'sstr',
-default=>param('sstr')\|\|'',	-default=>param('sstr')\|\|'',
-size=>50);	-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);	'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 212 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)
# {	# {