diff options
| author | Matthew Somerville <matthew@mysociety.org> | 2011-01-20 22:57:41 +0000 |
|---|---|---|
| committer | Matthew Somerville <matthew@mysociety.org> | 2011-01-20 22:57:41 +0000 |
| commit | 0faa9bfe0ed7cbeb9e8d88a76ddcb8cb55b6f3bd (patch) | |
| tree | 909b9b3f307a75c825ebd8eebbfc044fca922600 /perllib/Problems.pm | |
| parent | 72ce448c47240921cdef5f09a81df0aa540d3015 (diff) | |
Dates on index page.
Diffstat (limited to 'perllib/Problems.pm')
| -rw-r--r-- | perllib/Problems.pm | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/perllib/Problems.pm b/perllib/Problems.pm index 788074e37..1556b7724 100644 --- a/perllib/Problems.pm +++ b/perllib/Problems.pm @@ -176,7 +176,9 @@ sub around_map { $limit_clause = " limit $limit"; } mySociety::Locale::in_gb_locale { select_all( - "select id,title,easting,northing,state from problem + "select id,title,easting,northing,state, + extract(epoch from confirmed) as time + from problem where state in ('confirmed', 'fixed') and easting>=? and easting<? and northing>=? and northing<? " . ($interval ? " and ms_current_timestamp()-lastupdate < '$interval'::interval" : '') . @@ -189,7 +191,8 @@ sub around_map { sub nearby { my ($dist, $ids, $limit, $mid_e, $mid_n, $interval) = @_; mySociety::Locale::in_gb_locale { select_all( - "select id, title, easting, northing, distance, state + "select id, title, easting, northing, distance, state, + extract(epoch from confirmed) as time from problem_find_nearby(?, ?, $dist) as nearby, problem where nearby.problem_id = problem.id " . ($interval ? " and ms_current_timestamp()-lastupdate < '$interval'::interval" : '') . |