--- db/prgsrc/updatedb.pl	2004/01/07 14:31:31	1.37
+++ db/prgsrc/updatedb.pl	2004/01/10 21:07:38	1.38
@@ -28,7 +28,7 @@ The database, user and password are hard
 
 Dmitry Rubinstein
 
-=head1 $Id: updatedb.pl,v 1.37 2004/01/07 14:31:31 boris Exp $
+=head1 $Id: updatedb.pl,v 1.38 2004/01/10 21:07:38 boris Exp $
 
 =cut
 
@@ -384,6 +384,16 @@ MAIN:
 		&UpdateQuestion($dbh, $QuestionId, "Comments", $value);
 		next;
 	    }
+
+	    if ($key =~ /÷ÉÄ/) { 
+		if ($value =~ /^\s*ä\s*$/) {#Questions ä are really þä...
+		    $value = "äþ";
+		}
+		&UpdateQuestion($dbh, $QuestionId, "Type", $value);
+		next;
+	    }
+
+
 	    
 	    my @Fields = grep { $key =~ /$_/ } keys %QuestionFields;