--- db/prgsrc/updatedb.pl	2004/01/11 00:14:32	1.39
+++ db/prgsrc/updatedb.pl	2004/01/19 19:42:04	1.40
@@ -28,7 +28,7 @@ The database, user and password are hard
 
 Dmitry Rubinstein
 
-=head1 $Id: updatedb.pl,v 1.39 2004/01/11 00:14:32 boris Exp $
+=head1 $Id: updatedb.pl,v 1.40 2004/01/19 19:42:04 boris 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;
@@ -385,14 +389,6 @@ MAIN:
 		next;
 	    }
 
-	    if ($key =~ /÷ÉÄ/) { 
-		if ($value =~ /^\s*ä\s*$/) {#Questions ä are really þä...
-		    $value = "þä";
-		}
-		&UpdateQuestion($dbh, $QuestionId, "Type", $value);
-		next;
-	    }
-
 
 	    
 	    my @Fields = grep { $key =~ /$_/ } keys %QuestionFields;