db/prgsrc/updatedb.pl - diff

Return to updatedb.pl CVS log

Up to [Local Repository] / db / prgsrc

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;