Return to updatedb.pl CVS log | Up to [Local Repository] / db / prgsrc |
version 1.38, 2004/01/10 21:07:38 | version 1.39, 2004/01/11 00:14:32 |
---|---|
Line 387 MAIN: | Line 387 MAIN: |
if ($key =~ /÷ÉÄ/) { | if ($key =~ /÷ÉÄ/) { |
if ($value =~ /^\s*ä\s*$/) {#Questions ä are really þä... | if ($value =~ /^\s*ä\s*$/) {#Questions ä are really þä... |
$value = "äþ"; | $value = "þä"; |
} | } |
&UpdateQuestion($dbh, $QuestionId, "Type", $value); | &UpdateQuestion($dbh, $QuestionId, "Type", $value); |
next; | next; |