--- db/prgsrc/db.cgi 2008/02/09 10:40:59 1.146 +++ db/prgsrc/db.cgi 2008/11/09 20:02:36 1.149 @@ -1302,6 +1302,12 @@ sub PrintTour { if ($Tournament{'Info'}) { $output .= p($Tournament{'Info'}); } + + if ($Tour{'Info'}) { + $output .= p($Tour{'Info'}); + } + + $output.=p("XML"); my $n=$Tour{'Number'}; @@ -1506,6 +1512,8 @@ $output.="" } $output=~s/\(pic: ([^\)]*)\)/

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

<\/embed>

/g unless $text; + $output=~s/›/\ï/g; $output=~s/“/\Ï/g; @@ -1998,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))) {