--- db/prgsrc/updateRS1.pl	2001/10/31 03:07:29	1.2
+++ db/prgsrc/updateRS1.pl	2001/12/10 20:37:23	1.5
@@ -37,6 +37,7 @@ cicles_number=1.
 use locale;
 use DBI;
 use POSIX qw (locale_h);
+use lib "../lib";
 use chgkfiles;
 use dbchgk;
 open (STDERR,">errors");
@@ -63,7 +64,7 @@ my $nf;
 
 #open WARN, ">$warnings";
 
-%forbidden=checktable('equalto')? getequalto : ();
+#%forbidden=checktable('equalto')? getequalto : ();
 
 
 if ((uc 'Á') ne 'á') {die "!Koi8-r locale not installed!\n"};
@@ -85,6 +86,7 @@ foreach $d(@dictionaries)
      	chomp;
      	s/\s*$//;
        	($aa,$b)=split(/\//);
+       	$aa=~tr/£³/Åå/;
     	$a= uc $aa;
     	$words{$a}.=$b || "!";
      }