diff options
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'; } |