db/prgsrc/updatedb.pl - diff

Return to updatedb.pl CVS log

Up to [Local Repository] / db / prgsrc

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;
}	}