db/prgsrc/db.cgi - diff

Return to db.cgi CVS log

Up to [Local Repository] / db / prgsrc

version 1.43, 2001/12/05 01:49:26	version 1.45, 2001/12/06 23:39:11
Line 195 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);
Line 997 sub PrintQuestion {	Line 997 sub PrintQuestion {
$output .= &PrintField("Комментарии", $Question{'Comments'}, $text);	$output .= &PrintField("Комментарии", $Question{'Comments'}, $text);
}	}
}	}
$output.=br.a({href=> url."?metod=proxy&qid=$Id"}, 'Близкие вопросы').p	# $output.=br.a({href=> url."?metod=proxy&qid=$Id"}, 'Близкие вопросы').p
if $answer;	# if $answer;
return $output;	return $output;
}	}