db/prgsrc/updatedb.pl - diff

Return to updatedb.pl CVS log

Up to [Local Repository] / db / prgsrc

version 1.10, 2000/10/20 01:45:46	version 1.11, 2000/10/20 03:18:38
Line 64 sub getField {	Line 64 sub getField {
my($key);	my($key);
my($value) = ('');	my($value) = ('');
while (<$desc>) {	while (<$desc>) {
s/ //g;	s/[ ]//g;
if ($key && /^\s*$/) {	if ($key && /^\s*$/) {
chomp $value;	chomp $value;
chomp $key;	chomp $key;
Line 249 MAIN:	Line 249 MAIN:
WHERE Id=$TourId");	WHERE Id=$TourId");
}	}
$qnum = 0;	$qnum = 0;
$qtype = 'Ч';
$sth = $dbh->prepare("INSERT INTO Tournaments	$sth = $dbh->prepare("INSERT INTO Tournaments
(Title, Type, ParentId, CreatedAt)	(Title, Type, ParentId, CreatedAt)
VALUES ($value, 'Т', $TournamentId,	VALUES ($value, 'Т', $TournamentId,
Line 264 MAIN:	Line 263 MAIN:
next;	next;
}	}
if ($key =~ /Вопрос/) {	if ($key =~ /Вопрос/) {
	if (!$TourId) {
	$qnum = 0;
	$sth = $dbh->prepare("INSERT INTO Tournaments
	(Title, Type, ParentId, CreatedAt)
	VALUES ('1', 'Т', $TournamentId,
	$CreatedAt)");
	$sth->execute;
	$TourId = $sth->{mysql_insertid};
	}
my $query = "INSERT INTO Questions	my $query = "INSERT INTO Questions
(ParentId, Number, Type)	(ParentId, Number, Type)
VALUES ($TourId, $qnum+1, \'$qtype\')";	VALUES ($TourId, $qnum+1, \'$qtype\')";