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) { |