version 1.103, 2003/04/20 11:35:05
|
version 1.107, 2003/04/20 12:04:25
|
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=1 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 1451 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 1472 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 '') { |