version 1.1, 2000/10/17 01:50:39
|
version 1.3, 2000/10/17 02:24:47
|
Line 35 my (%RevMonths) =
|
Line 35 my (%RevMonths) =
|
'ïËÔ', '9', 'îÏÑ', '19', 'äÅË', '11'); |
'ïËÔ', '9', 'îÏÑ', '19', 'äÅË', '11'); |
my ($sth); |
my ($sth); |
|
|
|
use vars qw($/); |
|
|
|
$/=/\n
*/; |
|
|
use DBI; |
use DBI; |
use strict; |
use strict; |
|
|
Line 162 MAIN:
|
Line 166 MAIN:
|
VALUES ($value, 'þ', $ParentId, $source, |
VALUES ($value, 'þ', $ParentId, $source, |
$CreatedAt)"); |
$CreatedAt)"); |
$sth->execute; |
$sth->execute; |
$TournamentId = $sth->{insertid}; |
$TournamentId = $sth->{mysql_insertid}; |
next; |
next; |
} |
} |
if ($key =~ /ôÕÒ/) { |
if ($key =~ /ôÕÒ/) { |
Line 171 MAIN:
|
Line 175 MAIN:
|
WHERE Id=$TourId"); |
WHERE Id=$TourId"); |
} |
} |
$qnum = 0; |
$qnum = 0; |
$qtype = "'þ'"; |
$qtype = "þ"; |
$sth = $dbh->prepare("INSERT INTO Tournaments |
$sth = $dbh->prepare("INSERT INTO Tournaments |
(Title, Type, ParentId, CreatedAt) |
(Title, Type, ParentId, CreatedAt) |
VALUES ($value, 'ô', $TournamentId, $CreatedAt)"); |
VALUES ($value, 'ô', $TournamentId, $CreatedAt)"); |
$sth->execute; |
$sth->execute; |
$TourId = $sth->{insertid}; |
$TourId = $sth->{mysql_insertid}; |
next; |
next; |
} |
} |
if ($key =~ /÷ÉÄ/) { |
if ($key =~ /÷ÉÄ/) { |
Line 187 MAIN:
|
Line 191 MAIN:
|
$sth = $dbh->prepare("INSERT INTO Questions |
$sth = $dbh->prepare("INSERT INTO Questions |
(ParentId, Number, Type) |
(ParentId, Number, Type) |
VALUES ($TourId, $qnum+1, $qtype)"); |
VALUES ($TourId, $qnum+1, $qtype)"); |
$sth->execute; |
$sth->execute or print "Problem at $qnum"; |
$QuestionId = $sth->{insertid}; |
$QuestionId = $sth->{mysql_insertid}; |
&UpdateQuestion($dbh, $QuestionId, "Question", $value); |
&UpdateQuestion($dbh, $QuestionId, "Question", $value); |
$qnum++; |
$qnum++; |
$all_qnum++; |
$all_qnum++; |