--- db/prgsrc/db.cgi	2006/09/30 22:16:48	1.145
+++ db/prgsrc/db.cgi	2008/06/15 07:16:42	1.148
@@ -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("<a href='/dbxml.php?tour=".param('tour')."'>XML</a>");
+	
+	
 	return $output;
 }
 
@@ -1300,6 +1303,13 @@ sub PrintTour {
 		$output .= p($Tournament{'Info'});
 	}
 
+	if ($Tour{'Info'}) {
+		$output .= p($Tour{'Info'});
+	}
+
+
+	$output.=p("<a href='/dbxml.php?tour=".param('tour')."'>XML</a>");
+
 	my $n=$Tour{'Number'};
 	if ($answer == 0) {
 	        my $nn=".$n";
@@ -1994,7 +2004,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';