version 1.104, 2003/04/20 11:42:59
|
version 1.108, 2003/04/20 12:11:17
|
Line 35 $outputkvo=100 if $outputkvo>100;
|
Line 35 $outputkvo=100 if $outputkvo>100;
|
|
|
if (param('debug')) {$debug=1; $printqueries=1} |
if (param('debug')) {$debug=1; $printqueries=1} |
*STDERR=*STDOUT if $debug; |
*STDERR=*STDOUT if $debug; |
if ($url !~ /db\.chgk\.info/ && $url !~ /localhost/ ) { |
if ($url !~ /db\.chgk\.info/ && $url !~ /localhost/ && $url !~ /bilbo/) { |
my $u="http://db.chgk.info/cgi-bin/db.cgi?$qs"; |
my $u="http://db.chgk.info/cgi-bin/db.cgi?$qs"; |
Redirect ($u); |
Redirect ($u); |
exit; |
exit; |
Line 104 my @months=('000','Jan',"Feb","Mar","Apr
|
Line 104 my @months=('000','Jan',"Feb","Mar","Apr
|
sub NewEnough { |
sub NewEnough { |
my ($a) = @_; |
my ($a) = @_; |
my ($year, $month, $day) = split('-', $a); |
my ($year, $month, $day) = split('-', $a); |
$month=0 if ($month<0); |
$month=1 if ($month<=0); |
$day=0 if ($month<0); |
$day=1 if ($day<=0); |
return (time - timelocal(0, 0, 0, $day, $month -1, $year) < $TMSECS); |
return (time - timelocal(0, 0, 0, $day, $month -1, $year) < $TMSECS); |
} |
} |
|
|
Line 1452 sub PrintAll {
|
Line 1452 sub PrintAll {
|
|
|
my (%Tournament) = &GetTournament($dbh, $Id); |
my (%Tournament) = &GetTournament($dbh, $Id); |
my (@Tours) = &GetTours($dbh, $Id); |
my (@Tours) = &GetTours($dbh, $Id); |
|
my $SingleTour = $#Tours == 0; |
|
|
my ($New) = ($Id and $Tournament{'Type'} eq 'þ' and |
my ($New) = ($Id and $Tournament{'Type'} eq 'þ' and |
&NewEnough($Tournament{"CreatedAt"})) ? |
&NewEnough($Tournament{"CreatedAt"})) ? |
img({src=>"/znatoki/dimrub/db/new-sml.gif", alt=>"NEW!"}) : ""; |
img({src=>"/znatoki/dimrub/db/new-sml.gif", alt=>"NEW!"}) : ""; |
Line 1473 sub PrintAll {
|
Line 1475 sub PrintAll {
|
|
|
|
|
$output .= dd(img({src=>"/icons/folder.gif", alt=>"[*]"}) . |
$output .= dd(img({src=>"/icons/folder.gif", alt=>"[*]"}) . |
" " . a({href=>tourhref($textid,0,1)}, |
" " . a({href=>tourhref($textid,0,!$SingleTour)}, |
$Tournament{'Title'}) ." " . ($Tournament{'PlayedAt'}||'') . " $New"); |
$Tournament{'Title'}) ." " . ($Tournament{'PlayedAt'}||'') . " $New"); |
} |
} |
if ($Id == 0 or $Tournament{'Type'} =~ /ç/ or $Tournament{'Type'} eq '') { |
if ($Id == 0 or $Tournament{'Type'} =~ /ç/ or $Tournament{'Type'} eq '') { |