--- db/prgsrc/db.cgi 2006/09/30 22:16:48 1.145
+++ db/prgsrc/db.cgi 2008/03/02 05:25:30 1.147
@@ -287,7 +287,7 @@ sub tourhref {
$res=~s/(\#\d+)(.*)$/$2$1/;
my $t=$res;
$t=~s/\#.*$//;
- $res=~s/\.1// unless -e "$realHTMLDIR$t";
+# $res=~s/\.1// unless $gr ||$res=~/\.\d+$/;#-e "$realHTMLDIR$t";
$t=$res;
$t=~s/\#.*$//;
# $res=~s/\.html/-q\.html/ unless -e "$realHTMLDIR$t";
@@ -1194,7 +1194,6 @@ sub PrintTournament {
p("Дополнительная информация об этом турнире - по адресу " .
a({-'href'=>$URL}, $URL));
}
-
if ($Copyright) {
$output .= p("Копирайт: " . $Copyright);
}
@@ -1204,6 +1203,10 @@ sub PrintTournament {
if ($Info) {
$output .= p($Info);
}
+
+ $output.=p("XML");
+
+
return $output;
}
@@ -1299,6 +1302,7 @@ sub PrintTour {
if ($Tournament{'Info'}) {
$output .= p($Tournament{'Info'});
}
+ $output.=p("XML");
my $n=$Tour{'Number'};
if ($answer == 0) {
@@ -1994,7 +1998,7 @@ MAIN:
print end_html;
die "Can't connect to DB chgk\n";
};
-
+ $dbh->do("set names koi8r");
if (param('qid') && (param('qid')=~/^\d+$/) || $tour && $tour=~/^\d+$/) {
# my $destination='http://chgk.zaba.ru/search.html';