db/prgsrc/eq/findequal.pl - diff

Return to findequal.pl CVS log

Up to [Local Repository] / db / prgsrc / eq

version 1.1, 2001/05/18 01:37:51	version 1.3, 2001/05/18 03:12:49
Line 51 getbase(QuestionId,Question);	Line 51 getbase(QuestionId,Question);

print "Loading questions...\n";	print "Loading questions...\n";

if ((uc 'Á') ne 'á') {die "!Koi8-r locale not installed!\n"};	#if ((uc 'Á') ne 'á') {die "!Koi8-r locale not installed!\n"};

while ((($id, $a) = getrow), $id)	while ((($id, $a) = getrow), $id)
{	{
Line 60 while ((($id, $a) = getrow), $id)	Line 60 while ((($id, $a) = getrow), $id)
$a=~s/³£pPHXxAaBEe3KMoOT/åÅÒòîèÈáÁ÷åÅúëíÏïô/;	$a=~s/³£pPHXxAaBEe3KMoOT/åÅÒòîèÈáÁ÷åÅúëíÏïô/;
$a=uc $a;	$a=uc $a;

$a=~s/[^êãõëåîçûýúèÿüöäìïòðá÷ùæñþóíéôøâà]//g;	$a=~s/[^êãõëåîçûýúèÿüöäìïòðá÷ùæñþóíéôøâàÊÃÕËÅÎÇÛÝÚÈßÆÙ×ÁÐÒÏÌÄÖÜÑÞÓÍÉÔØÂÀ]//g;
$ar[$id]=$a;	$ar[$id]=$a;
$last=$id;	$last=$id;
}	}