commit - 487f3ddceb144407b60d53a545d08fa03abc65ea
commit + afe95dd5fb3c5bd7274b5482fba4c4625fe34c05
blob - de87cd80793dd69cf80340a3502df9d44b9796a4
blob + 98d32ab50f7a187c4b692d3dd5e2db01efdfdc8a
--- GotMArc.pm
+++ GotMArc.pm
}
sub thrnav {
- my ($fh, $p, $n, $mid, $tid) = @_;
+ my ($fh, $p, $n) = @_;
my @prev = @{$p};
my @next = @{$n};
if (@prev) {
my $mail = $prev[-1];
my $encmid = $mail->{mid};
- say $fh "<a href='/mail/$encmid.html'>Previous</a>";
+ say $fh "<a href='/mail/$encmid.html'>Previous in thread</a>";
} else {
- say $fh "<span>Previous</span>";
+ say $fh "<span>Previous in thread</span>";
}
- if (defined($mid) && defined($tid)) {
- my $encmid = urlencode $mid;
- my $enctid = urlencode $tid;
- say $fh "<a href='/text/$encmid.txt'>Raw body</a>";
- say $fh "<a href='/thread/$enctid.html#$encmid'>Thread</a>";
- }
-
if (@next) {
my $mail = $next[0];
my $encmid = $mail->{mid};
- say $fh "<a href='/mail/$encmid.html'>Next</a>";
+ say $fh "<a href='/mail/$encmid.html'>Next in thread</a>";
} else {
- say $fh "<span>Next</span>";
+ say $fh "<span>Next in thread</span>";
}
print $fh "</nav>";
blob - 293813d8adf16357a78e79ff5905ac46b8c4a235
blob + 2521e48da5b49a3c86a374080bc484b6623a717b
--- mexp
+++ mexp
}
say $fh "</ul>" if $partno > 0;
- thrnav $fh, $prev, $next, $mail->{mid}, $mail->{tid};
+ thrnav $fh, $prev, $next;
thrslice $fh, $mail, $prev, $next;
endpage $fh;