--- db/prgsrc/db.cgi 2002/01/13 00:32:12 1.58
+++ db/prgsrc/db.cgi 2002/01/14 11:31:43 1.59
@@ -868,9 +868,9 @@ sub PrintTournament {
"вопросы + ответы") . "]")
);
} else {
- $list .= dd(a({href=>url . "?tour=$textid&comp=1"},
- img({src=>'/icons/compressed.gif', alt=>'[ZIP]', border=>1}))
- . " " . img({src=>$imgsrc, alt=>$alt})
+ $list .= dd(#a({href=>url . "?tour=$textid&comp=1"},
+ #img({src=>'/icons/compressed.gif', alt=>'[ZIP]', border=>1})). " " .
+ img({src=>$imgsrc, alt=>$alt})
. " " . a({href=>url . "?tour=$textid&answer=0"},
$Tournament{'Title'}. " ".
$Tournament{'PlayedAt'}) . $qnum);
@@ -1000,12 +1000,14 @@ sub PrintTour {
sub PrintField {
my ($header, $value, $text) = @_;
if ($text) {
- $value =~ s/<[\/\w]*>//sg;
+ $value =~ s/<[\/\w]*?>//sg;
} else {
$value =~ s/^\s+/
/mg;
$value =~ s/^\|([^\n]*)/
$1<\/pre>/mg; + $value =~ s/\s+-+\s+/ /mg; } + return $text ? "$header:\n$value\n\n" : strong("$header: ") . $value . p . "\n"; }