version 1.4, 2000/10/19 22:34:56
|
version 1.5, 2000/10/19 23:04:46
|
Line 392 sub PrintTour {
|
Line 392 sub PrintTour {
|
sub PrintField { |
sub PrintField { |
my ($header, $value, $text) = @_; |
my ($header, $value, $text) = @_; |
if ($text) { |
if ($text) { |
$value =~ s/<[\/\w]*>//sg; |
$value =~ s/<[\/\w]*>//sg; |
|
} else { |
|
$value =~ s/^\s+/<br> /mg; |
|
$value =~ s/^\|([^\n]*)/<pre>$1<\/pre>/mg; |
} |
} |
return $text ? "$header:\n$value\n\n" : |
return $text ? "$header:\n$value\n\n" : |
strong("$header: ") . $value . p . "\n"; |
strong("$header: ") . $value . p . "\n"; |