|
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"; |
![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to db.cgi CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Local Repository] / db / prgsrc