version 1.98, 2003/04/14 23:52:12
|
version 1.99, 2003/04/19 22:50:06
|
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) = @_; |