search: support downloading mboxes results with full thread

[public-inbox.git] / lib / PublicInbox / SearchQuery.pm

diff --git a/lib/PublicInbox/SearchQuery.pm b/lib/PublicInbox/SearchQuery.pm
index ce1eae121a9d0498825346faace2916ad06dfe97..6724ae39171e0286a3e4b213b710cee6780e7932 100644 (file)
--- a/lib/PublicInbox/SearchQuery.pm
+++ b/lib/PublicInbox/SearchQuery.pm
@@ -12,7 +12,8 @@ our $LIM = 200;
 sub new {
        my ($class, $qp) = @_;
 
-       my $r = $qp->{r};
+       my $r = $qp->{r}; # relevance
+       my $t = $qp->{t}; # collapse threads
        my ($l) = (($qp->{l} || '') =~ /([0-9]+)/);
        $l = $LIM if !$l || $l > $LIM;
        bless {
@@ -21,6 +22,7 @@ sub new {
                o => (($qp->{o} || '0') =~ /(-?[0-9]+)/),
                l => $l,
                r => (defined $r && $r ne '0'),
+               t => (defined $t && $t ne '0'),
        }, $class;
 }
 
@@ -41,8 +43,8 @@ sub qs_html {
        if (my $l = $self->{l}) {
                $qs .= "&l=$l" unless $l == $LIM;
        }
-       if (my $r = $self->{r}) {
-               $qs .= "&r";
+       for my $bool (qw(r t)) {
+               $qs .= "&$bool" if $self->{$bool};
        }
        if (my $x = $self->{x}) {
                $qs .= "&x=$x" if ($x eq 't' || $x eq 'A' || $x eq 'm');