|
version 1.113, 2003/04/20 12:48:48
|
version 1.114, 2003/04/22 10:49:32
|
|
Line 9 use locale;
|
Line 9 use locale;
|
| use vars qw($opt_z); |
use vars qw($opt_z); |
| use Getopt::Std; |
use Getopt::Std; |
| getopts('z'); |
getopts('z'); |
| |
my $withanswers=param('answer')||param('answers'); |
| open STDERR, ">/var/tmp/errors1"; |
open STDERR, ">/var/tmp/errors1"; |
| my $newsurl='http://news.chgk.info/'; |
my $newsurl='http://news.chgk.info/'; |
| my $reklama="../dimrub/db/reklama.html"; |
my $reklama="../dimrub/db/reklama.html"; |
|
Line 21 if ($^O =~ /win/i) {
|
Line 22 if ($^O =~ /win/i) {
|
| { |
{ |
| $realHTMLDIR="/home/znatoki/public_html/dimrub/db/baza/"; |
$realHTMLDIR="/home/znatoki/public_html/dimrub/db/baza/"; |
| } |
} |
| my $usehtml=1; |
my $usehtml=0; |
| my $usewas=0; |
my $usewas=0; |
| my $cashednumber=500; |
my $cashednumber=500; |
| my $outputnumber=10; |
my $outputnumber=10; |
|
Line 232 sub tourhref {
|
Line 233 sub tourhref {
|
| } else { |
} else { |
| $res=$url; |
$res=$url; |
| $res.="?tour=$t"; |
$res.="?tour=$t"; |
| $res.=$a?"?answers=1":""; |
$res.=$a?"&answers=1":""; |
| return $res; |
return $res; |
| } |
} |
| |
|
|
Line 2021 EOT
|
Line 2022 EOT
|
| $QuestionNumber=($sth->fetchrow)[0]||0; |
$QuestionNumber=($sth->fetchrow)[0]||0; |
| } |
} |
| if ($QuestionNumber) { |
if ($QuestionNumber) { |
| $globaloutput.= &PrintQuestion($dbh, $QuestionNumber, param('answer')||0, $qnum, 1,0,0); |
$globaloutput.= &PrintQuestion($dbh, $QuestionNumber, $withanswers||0, $qnum, 1,0,0); |
| # $dbh, $Id, $answer, $qnum, $title, $text |
# $dbh, $Id, $answer, $qnum, $title, $text |
| } else { |
} else { |
| $globaloutput.=&PrintTournament($dbh, $tour, param('answer')); |
$globaloutput.=&PrintTournament($dbh, $tour, $withanswers); |
| } |
} |
| } |
} |
| else { |
else { |
![[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