--- db/prgsrc/updatedb.pl	2004/01/19 19:42:04	1.40
+++ db/prgsrc/updatedb.pl	2005/12/10 00:03:55	1.41
@@ -28,7 +28,7 @@ The database, user and password are hard
 
 Dmitry Rubinstein
 
-=head1 $Id: updatedb.pl,v 1.40 2004/01/19 19:42:04 boris Exp $
+=head1 $Id: updatedb.pl,v 1.41 2005/12/10 00:03:55 roma7 Exp $
 
 =cut
 
@@ -281,6 +281,7 @@ MAIN:
     
     my($dbh) = DBI->connect("DBI:mysql:chgk", "piataev", "")
 	or die "Can't connect to DB chgk\n";
+        $dbh->do("SET NAMES 'koi8r'");
     my @sources;	
     open UNSORTED, ">$unsortedname";
     while ($source = shift) {