--- db/prgsrc/db.cgi 2006/09/30 22:16:48 1.145 +++ db/prgsrc/db.cgi 2008/11/09 20:02:36 1.149 @@ -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; } @@ -1300,6 +1303,13 @@ sub PrintTour { $output .= p($Tournament{'Info'}); } + if ($Tour{'Info'}) { + $output .= p($Tour{'Info'}); + } + + + $output.=p("XML"); + my $n=$Tour{'Number'}; if ($answer == 0) { my $nn=".$n"; @@ -1502,6 +1512,8 @@ $output.="" } $output=~s/\(pic: ([^\)]*)\)/

/g unless $text; + $output=~s/\(aud: ([^\)]*)\)/

<\/embed>

/g unless $text; + $output=~s/⌡/\ï/g; $output=~s/⌠/\Ï/g; @@ -1994,15 +2006,15 @@ 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+$/) { +# if (param('qid') && (param('qid')=~/^\d+$/) || $tour && $tour=~/^\d+$/) { # my $destination='http://chgk.zaba.ru/search.html'; # print header (-'Content-Type' => 'text/html', # -'Location:'=> 'http:\\db.chgk.info'); - Redirect($destination); - exit - } +# Redirect($destination); +# exit +# } if (0 && $tour && !param('qnumber') && (!param('answers')||(param('answers')<=1))) {