db/prgsrc/updatedb.pl - diff

Return to updatedb.pl CVS log

Up to [Local Repository] / db / prgsrc

version 1.42, 2006/09/25 00:09:43	version 1.43, 2008/11/14 11:23:03
Line 156 sub SelectGroup {	Line 156 sub SelectGroup {
print UNSORTED "$tempsource".((12 -length($source))x' ')."\t$temptname\n";	print UNSORTED "$tempsource".((12 -length($source))x' ')."\t$temptname\n";
$isunsorted=1;	$isunsorted=1;
$sth = $dbh->prepare("INSERT INTO Tournaments	$sth = $dbh->prepare("INSERT INTO Tournaments
(Title, Type, ParentId, FileName)	(Title, Type, ParentId, FileName,CreatedAt)
VALUES ($TourName, 'þ', $ParentId,	VALUES ($TourName, 'þ', $ParentId,
$source)");	$source,NOW())");
$sth->execute;	$sth->execute;
my $TournamentId = $sth->{mysql_insertid};	my $TournamentId = $sth->{mysql_insertid};
return ($TournamentId,$ParentId);	return ($TournamentId,$ParentId);
Line 246 sub GetTours {	Line 246 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, Number)	(Title, Type, ParentId, Number,CreatedAt)
VALUES ($title, 'ô', $ParentId, $TourNum)");	VALUES ($title, 'ô', $ParentId, $TourNum,NOW())");
$sth->execute;	$sth->execute;
my $TourId = $sth->{mysql_insertid};	my $TourId = $sth->{mysql_insertid};
while (my ($key,$value)=each %$rh_defaults) {	while (my ($key,$value)=each %$rh_defaults) {