commit - a3c4c223a6e8f25647c6e13c8769c187cb0946da
commit + 487f3ddceb144407b60d53a545d08fa03abc65ea
blob - ac26003375ef1b42895589ba2d9debfc3cdde914
blob + de87cd80793dd69cf80340a3502df9d44b9796a4
--- GotMArc.pm
+++ GotMArc.pm
}
sub thread_header {
- my ($fh, $e, $mail, $p, $n, $spoiler) = @_;
- $spoiler = 0 unless defined $spoiler;
+ my ($fh, $e, $mail, $p, $n) = @_;
my @entries = @$e;
say $fh "<p>Download raw <a href='/text/$encmid.txt'>body</a>.</p>"
if defined $encmid;
- say $fh "<details>" if $spoiler;
- say $fh "<summary>Thread</summary>" if $spoiler;
- thrslice($fh, $mail, $p, $n) if defined $p and defined $n;
- say $fh "</details>" if $spoiler;
+ if (defined($p) and defined($n)) {
+ say $fh "<details>";
+ say $fh "<summary>Thread</summary>";
+ thrslice($fh, $mail, $p, $n);
+ say $fh "</details>";
+ thrnav($fh, $p, $n, $mail->{mid}, $mail->{tid});
+ }
say $fh "</header>\n";
}
blob - cb957d6415f362e0852864483cbdd7951771957a
blob + 293813d8adf16357a78e79ff5905ac46b8c4a235
--- mexp
+++ mexp
}
say $text "";
- thread_header $fh, \@hdrs, $mail, $prev, $next, 1;
+ thread_header $fh, \@hdrs, $mail, $prev, $next;
print $fh "<pre>";
while (<$mshow>) {