diff options
| author | matthew <matthew> | 2008-05-23 09:53:10 +0000 |
|---|---|---|
| committer | matthew <matthew> | 2008-05-23 09:53:10 +0000 |
| commit | fa912155c619e877df3fb2190b91f80234c8cb7d (patch) | |
| tree | 5ea9e992fe801bfcbb3f3b8993601270c7eefcd1 /perllib/Problems.pm | |
| parent | 8e6c3b1d35e6fa6220812994308b1da60fa59022 (diff) | |
Consolidate list of categories; generate_rss() returns output rather than
prints, so as to perform microsite post-processing.
Diffstat (limited to 'perllib/Problems.pm')
| -rw-r--r-- | perllib/Problems.pm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/perllib/Problems.pm b/perllib/Problems.pm index c767c7abf..548496f63 100644 --- a/perllib/Problems.pm +++ b/perllib/Problems.pm @@ -6,7 +6,7 @@ # Copyright (c) 2008 UK Citizens Online Democracy. All rights reserved. # Email: matthew@mysociety.org; WWW: http://www.mysociety.org/ # -# $Id: Problems.pm,v 1.2 2008-05-21 15:48:06 matthew Exp $ +# $Id: Problems.pm,v 1.3 2008-05-23 09:53:10 matthew Exp $ # package Problems; @@ -18,10 +18,10 @@ use mySociety::Web qw/ent/; my $site_restriction = ''; sub set_site_restriction { my $site = shift; + my @cats = Page::scambs_categories(); + my $cats = join("','", @cats); $site_restriction = " and council=2260 and category in - ('Abandoned vehicles', 'Discarded hypodermic needles', 'Dog fouling', - 'Flytipping', 'Graffiti', 'Lighting (e.g. security lights)', 'Litter', - 'Neighbourhood noise') " + ('$cats') " if $site eq 'scambs'; } |