db/prgsrc/eq/findequal.pl - diff

Return to findequal.pl CVS log

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

version 1.2, 2001/05/18 02:52:59	version 1.4, 2001/05/18 03:23:45
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;
}	}