1 files changed, 18 insertions, 0 deletions
diff --git a/perllib/FixMyStreet/DB/ResultSet/Questionnaire.pm b/perllib/FixMyStreet/DB/ResultSet/Questionnaire.pm
index 80f62f495..1f5e26197 100644
--- a/perllib/FixMyStreet/DB/ResultSet/Questionnaire.pm
+++ b/perllib/FixMyStreet/DB/ResultSet/Questionnaire.pm
@@ -112,4 +112,22 @@ sub send_questionnaires_period {
     }
 }
 
+sub timeline {
+    my ( $rs, $restriction ) = @_;
+
+    return $rs->search(
+        {
+            -or => {
+                whenanswered => { '>=', \"ms_current_timestamp()-'7 days'::interval" },
+                'me.whensent'  => { '>=', \"ms_current_timestamp()-'7 days'::interval" },
+            },
+            %{ $restriction },
+        },
+        {
+            -select => [qw/me.*/],
+            prefetch => [qw/problem/],
+        }
+    );
+}
+
 1;