version 1.97, 2003/04/14 20:06:59
|
version 1.99, 2003/04/19 22:50:06
|
Line 23 $outputkvo=100 if $outputkvo>100;
|
Line 23 $outputkvo=100 if $outputkvo>100;
|
|
|
if (param('debug')) {$debug=1; $printqueries=1} |
if (param('debug')) {$debug=1; $printqueries=1} |
*STDERR=*STDOUT if $debug; |
*STDERR=*STDOUT if $debug; |
if ($url !~ /db\.chgk\.info/ && $url !~ /localhost/ ) { |
if ($url !~ /db\.chgk\.info/ && $url !~ /(localhost)||(bilbo)/ ) { |
my $u="http://db.chgk.info/cgi-bin/db.cgi?$qs"; |
my $u="http://db.chgk.info/cgi-bin/db.cgi?$qs"; |
Redirect ($u); |
Redirect ($u); |
exit; |
exit; |
Line 142 sub fetchquestion {
|
Line 142 sub fetchquestion {
|
my ($sth,$q,$WithTour)=@_; |
my ($sth,$q,$WithTour)=@_; |
if ($WithTour) { |
if ($WithTour) { |
($$q{'Question'},$$q{'Answer'},$$q{'Comments'},$$q{'Authors'}, |
($$q{'Question'},$$q{'Answer'},$$q{'Comments'},$$q{'Authors'}, |
|
$$q{'Sources'}, |
$$q{'Number'}, |
$$q{'Number'}, |
$$q{'Title'}, $$q{'TourTitle'}, $$q{'FileName'},$$q{'PlayedAt'},$$q{'TourNumber'}) = |
$$q{'Title'}, $$q{'TourTitle'}, $$q{'FileName'},$$q{'PlayedAt'},$$q{'TourNumber'}) = |
$sth->fetchrow; |
$sth->fetchrow; |
} else { |
} else { |
($$q{'Question'},$$q{'Answer'},$$q{'Comments'},$$q{'Authors'}, |
($$q{'Question'},$$q{'Answer'},$$q{'Comments'},$$q{'Authors'}, |
|
$$q{'Sources'}, |
$$q{'Number'})= |
$$q{'Number'})= |
$sth->fetchrow; |
$sth->fetchrow; |
} |
} |
Line 165 sub SelectQuestions {
|
Line 167 sub SelectQuestions {
|
|
|
my $query; |
my $query; |
if ($WithTour) { |
if ($WithTour) { |
$query="SELECT Questions.Question, Answer, Comments, Authors, |
$query="SELECT Questions.Question, Answer, Comments, Authors, Sources, |
Questions.Number |
Questions.Number |
, t2.Title, t1.Title, t2.FileName, t2.PlayedAt,t1.Number |
, t2.Title, t1.Title, t2.FileName, t2.PlayedAt,t1.Number |
from Questions,Tournaments as t1, Tournaments as t2 |
from Questions,Tournaments as t1, Tournaments as t2 |
WHERE $where"; |
WHERE $where"; |
} else { |
} else { |
$query="SELECT Questions.Question, Answer, Comments, Authors, |
$query="SELECT Questions.Question, Answer, Comments, Authors,Sources, |
Questions.Number from Questions |
Questions.Number from Questions |
WHERE $where"; |
WHERE $where"; |
} |
} |
Line 182 sub SelectQuestions {
|
Line 184 sub SelectQuestions {
|
return $sth; |
return $sth; |
} |
} |
|
|
|
|
# Reads one question from the DB. Gets DB handler and Question ID. |
# Reads one question from the DB. Gets DB handler and Question ID. |
sub GetQuestion { |
sub GetQuestion { |
my ($dbh, $QuestionId) = @_; |
my ($dbh, $QuestionId) = @_; |