version 1.2, 2000/10/17 01:54:16
|
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 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)"); |
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->{mysql_insertid}; |
$QuestionId = $sth->{mysql_insertid}; |
&UpdateQuestion($dbh, $QuestionId, "Question", $value); |
&UpdateQuestion($dbh, $QuestionId, "Question", $value); |
$qnum++; |
$qnum++; |