--- db/prgsrc/updateRS1.pl	2001/10/31 03:07:29	1.2
+++ db/prgsrc/updateRS1.pl	2002/06/15 03:43:48	1.7
@@ -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 || "!";
      }
@@ -140,8 +142,8 @@ foreach $wordnumber(0..$#list)
            {
                 @n= split ' ',$n;
                 $nfkvo{$_}++ foreach @n;
-                $neww2k{$_}.=packword($fieldnumber, $id,$wordnumber%256)
-                     foreach (@n);
+                my $r=packword($fieldnumber, $id,$wordnumber%256);
+                $neww2k{$_}.=$r foreach (@n);
            }
            else {
              if ($word=~/^${RLrl}+$/o){ # ςΥΣΣΛΟΕ ΣΜΟΧΟ
@@ -169,14 +171,18 @@ foreach $wordnumber(0..$#list)
                        $newnf{$word}.=" $nfnumber";
                        $nfkvo{$nfnumber}++;
                        $a=\$neww2k{$nfnumber};
-                       $$a.=packword($fieldnumber, $id,$wordnumber);
+                       my $r=packword($fieldnumber, $id,$wordnumber);
+print "$word !!$r!\n";
+                       $$a.=$r;
                        if (length $$a>100) {flushw2k($nfnumber)}
                    }
                    else 
                    {
                       $nfnumber=addnf(0, $f, $flag,1);
                       $newnf{uc $word}.=" $nfnumber";
-                      $neww2k{$nfnumber}.=packword($fieldnumber, $id,$wordnumber);
+                       my $r=packword($fieldnumber, $id,$wordnumber);
+print "$word !!!$r!\n";
+                      $neww2k{$nfnumber}.=$r;
                    }
                }
            }