db/prgsrc/updatedb.pl - diff

Return to updatedb.pl CVS log

Up to [Local Repository] / db / prgsrc

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