version 1.37, 2004/01/07 14:31:31
|
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 384 MAIN:
|
Line 388 MAIN:
|
&UpdateQuestion($dbh, $QuestionId, "Comments", $value); |
&UpdateQuestion($dbh, $QuestionId, "Comments", $value); |
next; |
next; |
} |
} |
|
|
|
|
|
|
my @Fields = grep { $key =~ /$_/ } keys %QuestionFields; |
my @Fields = grep { $key =~ /$_/ } keys %QuestionFields; |
|
|