Return to db.cgi CVS log | Up to [Local Repository] / db / prgsrc |
version 1.63, 2002/05/04 03:35:36 | version 1.64, 2002/05/10 16:42:40 |
---|---|
Line 645 sub PrintList { | Line 645 sub PrintList { |
print "$nav".br."\n"; | print "$nav".br."\n"; |
for (my $i = $first; $i <= $last; $i++) { | for (my $i = $first; $i <= $last; $i++) { |
my $output = &PrintQuestion($dbh, $$Questions[$i-1], 1, $i, 1); | my $output = &PrintQuestion($dbh, $$Questions[$i-1], 1, 0, 1); |
if (param('metod') eq 'rus' || param('metod') eq 'proxy') | if (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; |