- $rv .= "\n<a\nhref=\"$mhref\"\n>permalink</a>" .
- " / <a\nhref=\"${mhref}raw\">raw</a> / ";
- my $mapping = $state->{mapping};
- my $nr_c = $mapping->{$mid_raw} || 0;
+
+ # add the footer
+ $rv .= "\n<a\nhref=#$id_m\nid=e$id>^</a> ".
+ "<a\nhref=\"$mhref\">permalink</a>" .
+ " / <a\nhref=\"${mhref}raw\">raw</a>" .
+ " / <a\nhref=\"${mhref}#R\">reply</a>";
+ if (my $pct = $ctx->{pct}) { # used by SearchView.pm
+ $rv .= " [relevance $pct->{$mid_raw}%]";
+ } elsif ($mapping) {
+ my $threaded = 'threaded';
+ my $flat = 'flat';
+ my $end = '';
+ if ($ctx->{flat}) {
+ $flat = "<b>$flat</b>";
+ } else {
+ $threaded = "<b>$threaded</b>";
+ }
+ $rv .= " / [<a\nhref=\"${mhref}T/#u\">$flat</a>";
+ $rv .= "|<a\nhref=\"${mhref}t/#u\">$threaded</a>]";
+ $rv .= " / <a\nhref=#r$id>$ctx->{s_nr}</a>";
+ }
+
+ $rv .= $more ? "\n\n" : "\n";
+}
+
+sub pad_link ($$;$) {
+ my ($mid, $level, $s) = @_;
+ $s ||= '...';
+ my $id = id_compress($mid, 1);
+ (' 'x19).indent_for($level).th_pfx($level)."<a\nhref=#r$id>($s)</a>\n";
+}
+
+sub _th_index_lite {
+ my ($mid_raw, $irt, $id, $ctx) = @_;
+ my $rv = '';
+ my $mapping = $ctx->{mapping} or return $rv;
+ my $pad = ' ';
+ # map = [children, attr, node, idx, level]
+ my $map = $mapping->{$mid_raw};
+ my $nr_c = scalar @{$map->[0]};