version 1.2, 2002/01/15 03:34:31
|
version 1.3, 2002/01/15 12:13:55
|
Line 48 sub WriteFile {
|
Line 48 sub WriteFile {
|
|
|
print OUT "Дата:\n".PrintDate($PlayedAt)."\n\n" if $PlayedAt; |
print OUT "Дата:\n".PrintDate($PlayedAt)."\n\n" if $PlayedAt; |
|
|
|
print OUT "Обработан:\n$EnteredBy\n\n" if $EnteredBy; |
|
|
|
|
$query= "SELECT Id, Title, Copyright, Editors, PlayedAt from Tournaments where ParentId=$Id order by Id"; |
$query= "SELECT Id, Title, Copyright, Editors, PlayedAt from Tournaments where ParentId=$Id order by Id"; |
$sth=$dbh->prepare($query); |
$sth=$dbh->prepare($query); |
Line 65 sub WriteFile {
|
Line 67 sub WriteFile {
|
$tourtitle{$tourid}=$tourtitle; |
$tourtitle{$tourid}=$tourtitle; |
$copyright{$tourid}=$cright; |
$copyright{$tourid}=$cright; |
$editor{$tourid}=$editor; |
$editor{$tourid}=$editor; |
$date{$tourid}=$date; |
$date{$tourid}=$date if $date; |
$vid=''; |
$vid=''; |
my $author=''; |
my $author=''; |
my $eqauthor=1; |
my $eqauthor=1; |
Line 141 sub WriteFile {
|
Line 143 sub WriteFile {
|
print OUT "Вид:\n$vid{$tour}\n\n" if !$eqvid; |
print OUT "Вид:\n$vid{$tour}\n\n" if !$eqvid; |
print OUT "Копирайт:\n$copyright{$tour}\n\n" if $copyright{$tour} && ($copyright{$tour} ne $Copyright); |
print OUT "Копирайт:\n$copyright{$tour}\n\n" if $copyright{$tour} && ($copyright{$tour} ne $Copyright); |
print OUT "Редактор:\n$editor{$tour}\n\n" if $editor{$tour} && ($editor{$tour} ne $Editors); |
print OUT "Редактор:\n$editor{$tour}\n\n" if $editor{$tour} && ($editor{$tour} ne $Editors); |
print OUT "Дата:\n".PrintDate($date{$tour})."\n\n" if !$eqdate && $date{$tour} || !$PlayedAt; |
print OUT "Дата:\n".PrintDate($date{$tour})."\n\n" if $date{$tour} && (!$eqdate || !$PlayedAt); |
$tourauthor=0; |
$tourauthor=0; |
if (!$eqauthor && $author{$tour}) |
if (!$eqauthor && $author{$tour}) |
{ |
{ |