|
version 1.145, 2006/09/30 22:16:48
|
version 1.146, 2008/02/09 10:40:59
|
|
Line 287 sub tourhref {
|
Line 287 sub tourhref {
|
| $res=~s/(\#\d+)(.*)$/$2$1/; |
$res=~s/(\#\d+)(.*)$/$2$1/; |
| my $t=$res; |
my $t=$res; |
| $t=~s/\#.*$//; |
$t=~s/\#.*$//; |
| $res=~s/\.1// unless -e "$realHTMLDIR$t"; |
# $res=~s/\.1// unless $gr ||$res=~/\.\d+$/;#-e "$realHTMLDIR$t"; |
| $t=$res; |
$t=$res; |
| $t=~s/\#.*$//; |
$t=~s/\#.*$//; |
| # $res=~s/\.html/-q\.html/ unless -e "$realHTMLDIR$t"; |
# $res=~s/\.html/-q\.html/ unless -e "$realHTMLDIR$t"; |
|
Line 1194 sub PrintTournament {
|
Line 1194 sub PrintTournament {
|
| p("Дополнительная информация об этом турнире - по адресу " . |
p("Дополнительная информация об этом турнире - по адресу " . |
| a({-'href'=>$URL}, $URL)); |
a({-'href'=>$URL}, $URL)); |
| } |
} |
| |
|
| if ($Copyright) { |
if ($Copyright) { |
| $output .= p("Копирайт: " . $Copyright); |
$output .= p("Копирайт: " . $Copyright); |
| } |
} |
|
Line 1204 sub PrintTournament {
|
Line 1203 sub PrintTournament {
|
| if ($Info) { |
if ($Info) { |
| $output .= p($Info); |
$output .= p($Info); |
| } |
} |
| |
|
| |
$output.=p("<a href='/dbxml.php?tour=".param('tour')."'>XML</a>"); |
| |
|
| |
|
| return $output; |
return $output; |
| } |
} |
| |
|
|
Line 1299 sub PrintTour {
|
Line 1302 sub PrintTour {
|
| if ($Tournament{'Info'}) { |
if ($Tournament{'Info'}) { |
| $output .= p($Tournament{'Info'}); |
$output .= p($Tournament{'Info'}); |
| } |
} |
| |
$output.=p("<a href='/dbxml.php?tour=".param('tour')."'>XML</a>"); |
| |
|
| my $n=$Tour{'Number'}; |
my $n=$Tour{'Number'}; |
| if ($answer == 0) { |
if ($answer == 0) { |
![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to db.cgi CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Local Repository] / db / prgsrc