|
version 1.148, 2008/06/15 07:16:42
|
version 1.149, 2008/11/09 20:02:36
|
|
Line 1512 $output.="</span>"
|
Line 1512 $output.="</span>"
|
| |
|
| } |
} |
| $output=~s/\(pic: ([^\)]*)\)/<p><img src="\/znatoki\/images\/db\/$1"><p>/g unless $text; |
$output=~s/\(pic: ([^\)]*)\)/<p><img src="\/znatoki\/images\/db\/$1"><p>/g unless $text; |
| |
$output=~s/\(aud: ([^\)]*)\)/<p><embed src="\/znatoki\/sounds\/db\/$1"><\/embed><p>/g unless $text; |
| |
|
| $output=~s/›/\ï/g; |
$output=~s/›/\ï/g; |
| $output=~s/“/\Ï/g; |
$output=~s/“/\Ï/g; |
| |
|
|
Line 2006 MAIN:
|
Line 2008 MAIN:
|
| }; |
}; |
| $dbh->do("set names koi8r"); |
$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'; |
| # print header (-'Content-Type' => 'text/html', |
# print header (-'Content-Type' => 'text/html', |
| # -'Location:'=> 'http:\\db.chgk.info'); |
# -'Location:'=> 'http:\\db.chgk.info'); |
| Redirect($destination); |
# Redirect($destination); |
| exit |
# exit |
| } |
# } |
| |
|
| if (0 && $tour && !param('qnumber') && (!param('answers')||(param('answers')<=1))) |
if (0 && $tour && !param('qnumber') && (!param('answers')||(param('answers')<=1))) |
| { |
{ |
![[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