diff options
| author | matthew <matthew> | 2008-01-28 17:27:00 +0000 |
|---|---|---|
| committer | matthew <matthew> | 2008-01-28 17:27:00 +0000 |
| commit | 6b505b7ab2d178cf016dd9b503575cb839ec46f4 (patch) | |
| tree | 27e9ccb0c4d523421e2bf89e9ce0e8dfda643425 | |
| parent | 2f30055233163a8ae3ad1a85c6f7c276d4c52cbd (diff) | |
Explicitly list all areas except EUR, as working that out is very slow.
| -rwxr-xr-x | web/index.cgi | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/web/index.cgi b/web/index.cgi index 5ea221a4c..13f46fc7a 100755 --- a/web/index.cgi +++ b/web/index.cgi @@ -6,7 +6,7 @@ # Copyright (c) 2006 UK Citizens Online Democracy. All rights reserved. # Email: matthew@mysociety.org. WWW: http://www.mysociety.org # -# $Id: index.cgi,v 1.174 2008-01-25 17:07:57 matthew Exp $ +# $Id: index.cgi,v 1.175 2008-01-28 17:27:00 matthew Exp $ use strict; use Standard; @@ -225,7 +225,10 @@ sub submit_problem { my $areas; if ($input{easting} && $input{northing}) { - $areas = mySociety::MaPit::get_voting_areas_by_location({easting=>$input{easting}, northing=>$input{northing}}, 'polygon'); + $areas = mySociety::MaPit::get_voting_areas_by_location( + { easting=>$input{easting}, northing=>$input{northing} }, + 'polygon', [qw(WMC CTY CED DIS DIW MTD MTW COI COP LGD LGE UTA UTE UTW LBO LBW GLA LAC SPC SPE WAC WAE NIE)] + ); if ($input{council} =~ /^[\d,]+(\|[\d,]+)?$/) { my $no_details = $1 || ''; my %va = map { $_ => 1 } @$mySociety::VotingArea::council_parent_types; |