Return to db.cgi CVS log | Up to [Local Repository] / db / prgsrc |
version 1.146, 2008/02/09 10:40:59 | version 1.147, 2008/03/02 05:25:30 |
---|---|
Line 1998 MAIN: | Line 1998 MAIN: |
print end_html; | print end_html; |
die "Can't connect to DB chgk\n"; | 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'; | # my $destination='http://chgk.zaba.ru/search.html'; |