version 1.138, 2004/11/21 13:37:29
|
version 1.139, 2005/02/26 11:03:41
|
Line 904 sub PrintList {
|
Line 904 sub PrintList {
|
for (my $i = $first; $i <= $last; $i++) { |
for (my $i = $first; $i <= $last; $i++) { |
my $q=$q{$$Questions[$i-1]}; |
my $q=$q{$$Questions[$i-1]}; |
my $output; |
my $output; |
$output = &PrintQuestion($dbh, $q, 1, 0, 1,0,1 ); |
$output = &PrintQuestion($dbh, $q, 1, 0, 1,$text,1 ); |
# if (param('metod') && (param('metod') eq 'rus' || param('metod') eq 'proxy')) |
# if (param('metod') && (param('metod') eq 'rus' || param('metod') eq 'proxy')) |
{ |
{ |
$output=~s/\b($shablon)\b/\<strong\>$1\<\/strong\>/gi; |
$output=~s/\b($shablon)\b/\<strong\>$1\<\/strong\>/gi; |
Line 1278 sub PrintTour {
|
Line 1278 sub PrintTour {
|
my $sth=SelectQuestions($dbh,\@Questions,0); |
my $sth=SelectQuestions($dbh,\@Questions,0); |
for ($q = 0; $q <= $#Questions; $q++) { |
for ($q = 0; $q <= $#Questions; $q++) { |
fetchquestion($sth,\%q,0); |
fetchquestion($sth,\%q,0); |
$output .= &PrintQuestion($dbh, \%q, $answer, 0,0,0,1); |
$output .= &PrintQuestion($dbh, \%q, $answer, 0,0,$text,1); |
} |
} |
$sth->finish; |
$sth->finish; |
$output .= hr({-'align'=>'center', -'width'=>'80%'}); |
$output .= hr({-'align'=>'center', -'width'=>'80%'}); |
Line 1499 $output.="</span>"
|
Line 1499 $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/›/\ï/g; |
|
$output=~s/“/\Ï/g; |
|
|
$paramtour||=param("tour"); |
$paramtour||=param("tour"); |
$fname=$fname.".$Question{'TourNumber'}" if $fname && $Question{'TourNumber'}; |
$fname=$fname.".$Question{'TourNumber'}" if $fname && $Question{'TourNumber'}; |
$fname||=param('tour'); |
$fname||=param('tour'); |
Line 2229 EOT
|
Line 2232 EOT
|
$QuestionNumber=($sth->fetchrow)[0]||0; |
$QuestionNumber=($sth->fetchrow)[0]||0; |
} |
} |
if ($QuestionNumber) { |
if ($QuestionNumber) { |
$globaloutput.= &PrintQuestion($dbh, $QuestionNumber, $withanswers||0, $qnum, 1,0,0); |
$globaloutput.= &PrintQuestion($dbh, $QuestionNumber, $withanswers||0, $qnum, 1,$text,0); |
# $dbh, $Id, $answer, $qnum, $title, $text |
# $dbh, $Id, $answer, $qnum, $title, $text |
} else { |
} else { |
$globaloutput.=&PrintTournament($dbh, $tour, $withanswers); |
$globaloutput.=&PrintTournament($dbh, $tour, $withanswers); |