![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to db.cgi CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Local Repository] / db / prgsrc|
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'; |