version 1.41, 2005/12/10 00:03:55
|
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) { |
Line 281 MAIN:
|
Line 281 MAIN:
|
|
|
my($dbh) = DBI->connect("DBI:mysql:chgk", "piataev", "") |
my($dbh) = DBI->connect("DBI:mysql:chgk", "piataev", "") |
or die "Can't connect to DB chgk\n"; |
or die "Can't connect to DB chgk\n"; |
$dbh->do("SET NAMES 'koi8r'"); |
if ($dbh->get_info( 18 )=~/^(5|(4.1))/) {$dbh->do("SET NAMES 'koi8r'");} |
my @sources; |
my @sources; |
open UNSORTED, ">$unsortedname"; |
open UNSORTED, ">$unsortedname"; |
while ($source = shift) { |
while ($source = shift) { |