--- db/prgsrc/updatedb.pl	2003/04/14 20:06:59	1.36
+++ db/prgsrc/updatedb.pl	2006/09/25 00:09:43	1.42
@@ -28,7 +28,7 @@ The database, user and password are hard
 
 Dmitry Rubinstein
 
-=head1 $Id: updatedb.pl,v 1.36 2003/04/14 20:06:59 roma7 Exp $
+=head1 $Id: updatedb.pl,v 1.42 2006/09/25 00:09:43 roma7 Exp $
 
 =cut
 
@@ -175,6 +175,10 @@ sub UpdateTournament {
 
 sub UpdateQuestion {
     my ($dbh, $QuestionId, $field, $value) = @_;
+    
+    if (($field eq 'Type') && ($value eq "'Д'")) {
+         $value = "'ЧД'";
+    }
     $dbh->do("UPDATE Questions SET $field=$value 
 		WHERE QuestionId=$QuestionId")
 	or die $dbh->errstr;
@@ -277,6 +281,7 @@ MAIN:
     
     my($dbh) = DBI->connect("DBI:mysql:chgk", "piataev", "")
 	or die "Can't connect to DB chgk\n";
+if ($dbh->get_info( 18 )=~/^(5|(4.1))/)  {$dbh->do("SET NAMES 'koi8r'");}
     my @sources;	
     open UNSORTED, ">$unsortedname";
     while ($source = shift) {
@@ -372,10 +377,20 @@ MAIN:
 		next;
 	    }
 
+
+	    if ($key =~ /Зач[её]т/) {
+		&UpdateQuestion($dbh, $QuestionId, "PassCriteria", $value);
+		next;
+	    }
+
+
+
 	    if ($key =~ /Комментари/) {
 		&UpdateQuestion($dbh, $QuestionId, "Comments", $value);
 		next;
 	    }
+
+
 	    
 	    my @Fields = grep { $key =~ /$_/ } keys %QuestionFields;