my $msg = $param{'msg'} || "";
my $att = $param{'att'};
my $boring = ($param{'boring'} || 'no') eq 'yes';
+my $terse = ($param{'terse'} || 'no') eq 'yes';
my $reverse = ($param{'reverse'} || 'no') eq 'yes';
my $mbox = ($param{'mbox'} || 'no') eq 'yes';
$this .= htmlsanit($entity->stringify);
}
$this = "$downloadHtml\n$this$downloadHtml" if $downloadHtml;
- $downloadHtml = '';
# if ($normstate eq 'go' || $normstate eq 'go-nox') {
if ($normstate ne 'html') {
$this = "<pre>\n$this</pre>\n";
$this .= " <em><a href=\"" . bugurl($ref, "msg=$xmessage") . "\">Full text</a> available.</em>";
}
$this = "$thisheader$this" if $thisheader && !( $normstate eq 'html' );;
+ $this = "$downloadHtml" if ($terse && $normstate ne 'html');
+ $downloadHtml = '';
$thisheader = '';
+ my $delim = $terse ? "<p>" : "<hr>";
if ($reverse) {
- $log = "$this\n<hr>$log";
+ $log = "$this\n$delim$log";
} else {
- $log .= "$this\n<hr>\n";
+ $log .= "$this\n$delim\n";
}
}