version 1.18, 2000/11/11 03:58:59
|
version 1.24, 2002/01/15 03:34:31
|
Line 67 sub getField {
|
Line 67 sub getField {
|
s/[
]//g; |
s/[
]//g; |
if ($key && /^\s*$/) { |
if ($key && /^\s*$/) { |
chomp $value; |
chomp $value; |
|
$value =~ s/\s+$//; |
chomp $key; |
chomp $key; |
if ($key eq 'Дата') { |
if ($key eq 'Дата') { |
$value =~ s/^(.*)-(.*)-(.*)$/$3-$2-$1/; |
$value =~ s/^(.*)-(.*)-(.*)$/$3-$2-$1/; |
my($month) = $RevMonths{$2} || '000'; |
my($month) = $RevMonths{$2} || '01'; |
$value =~ s/$2/$month/; |
$value =~ s/-(.*)-/-$month-/; |
|
$value =~ s/-00*$/-01/; |
} |
} |
$value = $dbh->quote($value); |
$value = $dbh->quote($value); |
return ($key, $value); |
return ($key, $value); |
Line 89 sub getField {
|
Line 91 sub getField {
|
} |
} |
} |
} |
if ($key && $value) { |
if ($key && $value) { |
|
$value=~s/\s+$//; |
$value = $dbh->quote($value); |
$value = $dbh->quote($value); |
return ($key, $value); |
return ($key, $value); |
} |
} |
Line 228 MAIN:
|
Line 231 MAIN:
|
# |
# |
my %QuestionFields = ('Тип'=> 'Type', 'Вид'=> 'Type', |
my %QuestionFields = ('Тип'=> 'Type', 'Вид'=> 'Type', |
'Автор' => 'Authors', 'Рейтинг'=>'Rating', |
'Автор' => 'Authors', 'Рейтинг'=>'Rating', |
'Источник' => 'Sources'); |
'Источник' => 'Sources', |
|
'Тема' => 'Topic'); |
|
|
|
|
my($source); |
my($source); |
Line 292 MAIN:
|
Line 296 MAIN:
|
if ($key =~ /Вопрос/) { |
if ($key =~ /Вопрос/) { |
if (!$TourId) { |
if (!$TourId) { |
$qnum = 0; |
$qnum = 0; |
$TourId=CreateTour($dbh,'1',$TournamentId, |
$TourNum++; |
|
$TourId=CreateTour($dbh,'1',$TournamentId,$TourNum, |
\%TourDefaults); |
\%TourDefaults); |
%QuestionDefaults=%QuestionGlobalDefaults; |
%QuestionDefaults=%QuestionGlobalDefaults; |
} |
} |