version 1.20, 2001/07/21 23:59:52
|
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; |
Line 229 MAIN:
|
Line 230 MAIN:
|
# |
# |
my %QuestionFields = ('Тип'=> 'Type', 'Вид'=> 'Type', |
my %QuestionFields = ('Тип'=> 'Type', 'Вид'=> 'Type', |
'Автор' => 'Authors', 'Рейтинг'=>'Rating', |
'Автор' => 'Authors', 'Рейтинг'=>'Rating', |
'Источник' => 'Sources'); |
'Источник' => 'Sources', |
|
'Тема' => 'Topic'); |
|
|
|
|
my($source); |
my($source); |