version 1.39, 2004/01/11 00:14:32
|
version 1.40, 2004/01/19 19:42:04
|
Line 175 sub UpdateTournament {
|
Line 175 sub UpdateTournament {
|
|
|
sub UpdateQuestion { |
sub UpdateQuestion { |
my ($dbh, $QuestionId, $field, $value) = @_; |
my ($dbh, $QuestionId, $field, $value) = @_; |
|
|
|
if (($field eq 'Type') && ($value eq "'ä'")) { |
|
$value = "'þä'"; |
|
} |
$dbh->do("UPDATE Questions SET $field=$value |
$dbh->do("UPDATE Questions SET $field=$value |
WHERE QuestionId=$QuestionId") |
WHERE QuestionId=$QuestionId") |
or die $dbh->errstr; |
or die $dbh->errstr; |
Line 385 MAIN:
|
Line 389 MAIN:
|
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; |