--- db/prgsrc/eq/Attic/findequal.pl	2001/05/18 02:52:59	1.2
+++ db/prgsrc/eq/Attic/findequal.pl	2001/05/18 03:23:45	1.4
@@ -51,7 +51,7 @@ getbase(QuestionId,Question);
 
 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) 
 {
@@ -60,7 +60,7 @@ while ((($id, $a) = getrow), $id)
         $a=~s/³£pPHXxAaBEe3KMoOT/åÅÒòîèÈáÁ÷åÅúëíÏïô/;
         $a=uc $a;
 
- 	$a=~s/[^êãõëåîçûýúèÿüöäìïòðá÷ùæñþóíéôøâà]//g;
+ 	$a=~s/[^êãõëåîçûýúèÿüöäìïòðá÷ùæñþóíéôøâàÊÃÕËÅÎÇÛÝÚÈßÆÙ×ÁÐÒÏÌÄÖÜÑÞÓÍÉÔØÂÀ]//g;
  	$ar[$id]=$a;
  	$last=$id;
 }