db/prgsrc/db.cgi - diff

Return to db.cgi CVS log

Up to [Local Repository] / db / prgsrc

version 1.42, 2001/12/05 00:17:52	version 1.44, 2001/12/05 01:55:21
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'],
Line 193 sub proxy	Line 195 sub proxy
$text=~s/p(${RLrl})/р$1/gom;	$text=~s/p(${RLrl})/р$1/gom;
$text=~s/(${RLrl})p/$1р/gom;	$text=~s/(${RLrl})p/$1р/gom;
$text=~s/\s+/ /gmo;	$text=~s/\s+/ /gmo;
$text=~s/[^йцукенгшщзхъфывапролджэячсмитьбюЙЦУКЕНГШЩЗХЪФЫВАПРОЛДЖЭЯЧСМИТЬБЮQWERTYUIOPASDFGHJKLZXCVBNM]/ /g;	$text=~s/[^йцукенгшщзхъфывапролджэячсмитьбюЙЦУКЕНГШЩЗХЪФЫВАПРОЛДЖЭЯЧСМИТЬБЮQWERTYUIOPASDFGHJKLZXCVBNM0-9]/ /g;
$text=uc $text;	$text=uc $text;
my @list= $text=~m/(?:(?:${RLrl})+)\|(?:[A-Za-z0-9]+)/gom;	my @list= $text=~m/(?:(?:${RLrl})+)\|(?:[A-Za-z0-9]+)/gom;
my (%c, %good,$sstr);	my (%c, %good,$sstr);