[PATCH] WIP thread-search HTML

[Eric Wong <e@80x24.org>]

---
 lib/PublicInbox/SearchView.pm | 11 +++++++++--
 1 file changed, 9 insertions(+), 2 deletions(-)

diff --git a/lib/PublicInbox/SearchView.pm b/lib/PublicInbox/SearchView.pm
index 07fef40c..f01edf7f 100644
--- a/lib/PublicInbox/SearchView.pm
+++ b/lib/PublicInbox/SearchView.pm
@@ -50,6 +50,12 @@ sub sres_top_html {
 		threads => $q->{t},
 		asc => $asc,
 	};
+	if (defined($ctx->{mid})) {
+		my $over = $ctx->{ibx}->over or
+			return PublicInbox::WWW::need($ctx, 'Over');
+		$opts->{threadid} = $over->mid2tid($ctx->{mid});
+		$ctx->{-upfx} = '../';
+	}
 	my ($mset, $total, $err, $html);
 retry:
 	eval {
@@ -99,6 +105,7 @@ sub mset_summary {
 	my @nums = @{$ibx->isrch->mset_to_artnums($mset)};
 	my %num2msg = map { $_->{num} => $_ } @{$ibx->over->get_all(@nums)};
 	my ($min, $max, %seen);
+	my $upfx = $ctx->{-upfx} // '';
 
 	foreach my $m ($mset->items) {
 		my $num = shift @nums;
@@ -126,7 +133,7 @@ sub mset_summary {
 		}
 		my $date = fmt_ts($smsg->{ds});
 		$s = '(no subject)' if $s eq '';
-		$$res .= qq{$rank. <b><a\nhref="$mid/">}.
+		$$res .= qq{$rank. <b><a\nhref="$upfx$mid/">}.
 			$s . "</a></b>\n";
 		$$res .= "$pfx  - by $f @ $date UTC [$pct%]\n\n";
 	}
@@ -305,7 +312,7 @@ sub mset_thread {
 	my $skel = search_nav_bot($ctx, $mset, $q).
 		"<pre>-- links below jump to the message on this page --\n";
 
-	$ctx->{-upfx} = '';
+	$ctx->{-upfx} //= '';
 	$ctx->{anchor_idx} = 1;
 	$ctx->{cur_level} = 0;
 	$ctx->{skel} = \$skel;