version 1.17, 2000/11/11 00:30:06
|
version 1.19, 2000/11/11 04:05:52
|
Line 201 sub GetTours {
|
Line 201 sub GetTours {
|
sub CreateTour { |
sub CreateTour { |
my ($dbh,$title,$ParentId,$TourNum,$rh_defaults)=@_; |
my ($dbh,$title,$ParentId,$TourNum,$rh_defaults)=@_; |
my $sth = $dbh->prepare("INSERT INTO Tournaments |
my $sth = $dbh->prepare("INSERT INTO Tournaments |
(Title, Type, ParentId, TourNum) |
(Title, Type, ParentId, Number) |
VALUES ($title, 'Т', $ParentId, $TourNum)"); |
VALUES ($title, 'Т', $ParentId, $TourNum)"); |
$sth->execute; |
$sth->execute; |
my $TourId = $sth->{mysql_insertid}; |
my $TourId = $sth->{mysql_insertid}; |
Line 292 MAIN:
|
Line 292 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; |
} |
} |