Return to updatedb.pl CVS log | Up to [Local Repository] / db / prgsrc |
version 1.37, 2004/01/07 14:31:31 | version 1.39, 2004/01/11 00:14:32 |
---|---|
Line 384 MAIN: | Line 384 MAIN: |
&UpdateQuestion($dbh, $QuestionId, "Comments", $value); | &UpdateQuestion($dbh, $QuestionId, "Comments", $value); |
next; | next; |
} | } |
if ($key =~ /÷ÉÄ/) { | |
if ($value =~ /^\s*ä\s*$/) {#Questions ä are really þä... | |
$value = "þä"; | |
} | |
&UpdateQuestion($dbh, $QuestionId, "Type", $value); | |
next; | |
} | |
my @Fields = grep { $key =~ /$_/ } keys %QuestionFields; | my @Fields = grep { $key =~ /$_/ } keys %QuestionFields; |