diff options
| author | Struan Donald <struan@exo.org.uk> | 2011-06-07 16:46:05 +0100 |
|---|---|---|
| committer | Struan Donald <struan@exo.org.uk> | 2011-06-07 16:46:05 +0100 |
| commit | a82a51695eacf94b7523502b3a48e1de6836fec0 (patch) | |
| tree | 214d4928cc0a71f8a56adcce913af9118cfb0b92 /perllib/FixMyStreet/DB/ResultSet/Questionnaire.pm | |
| parent | 00952f9a897777a4351f51c2728c52e43c6ea760 (diff) | |
admin timeline
Diffstat (limited to 'perllib/FixMyStreet/DB/ResultSet/Questionnaire.pm')
| -rw-r--r-- | perllib/FixMyStreet/DB/ResultSet/Questionnaire.pm | 18 |
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; |