Return to updatedb.pl CVS log | Up to [Local Repository] / db / prgsrc |
version 1.21, 2002/01/07 01:32:26 | version 1.22, 2002/01/12 00:55:33 |
---|---|
Line 135 sub UpdateTournament { | Line 135 sub UpdateTournament { |
sub UpdateQuestion { | sub UpdateQuestion { |
my ($dbh, $QuestionId, $field, $value) = @_; | my ($dbh, $QuestionId, $field, $value) = @_; |
$value=~s/\s*$//; | |
$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; |