diff options
author | Matthew Somerville <matthew@fury.ukcod.org.uk> | 2011-02-15 14:04:59 +0000 |
---|---|---|
committer | Matthew Somerville <matthew@fury.ukcod.org.uk> | 2011-02-15 14:04:59 +0000 |
commit | c604dca5f9b27e654a45cd470266432b87419cb0 (patch) | |
tree | dee20cd03c9eb9b3451c7f9724438378bc1705ac /web/index.cgi | |
parent | 49ac669dadf27ca93681fc07769cf56f4e5285f9 (diff) |
Council list related stuff, on /reports and admin page.
Diffstat (limited to 'web/index.cgi')
-rwxr-xr-x | web/index.cgi | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/web/index.cgi b/web/index.cgi index ca2795eaa..7b829ae32 100755 --- a/web/index.cgi +++ b/web/index.cgi @@ -325,8 +325,8 @@ sub submit_problem { $areas = mySociety::MaPit::call( 'point', $mapit_query ); if ($input{council} =~ /^[\d,]+(\|[\d,]+)?$/) { my $no_details = $1 || ''; - my $area_types = Cobrand::area_types($cobrand); - my %va = map { $_ => 1 } @$area_types; + my @area_types = Cobrand::area_types($cobrand); + my %va = map { $_ => 1 } @area_types; my %councils; foreach (keys %$areas) { $councils{$_} = 1 if $va{$areas->{$_}->{type}}; @@ -517,9 +517,9 @@ sub display_form { } # Look up councils and do checks for the point we've got - my $area_types = Cobrand::area_types($cobrand); + my @area_types = Cobrand::area_types($cobrand); # XXX: I think we want in_gb_locale around the next line, needs testing - my $all_councils = mySociety::MaPit::call('point', "4326/$longitude,$latitude", type => $area_types); + my $all_councils = mySociety::MaPit::call('point', "4326/$longitude,$latitude", type => \@area_types); # Let cobrand do a check my ($success, $error_msg) = Cobrand::council_check($cobrand, { all_councils => $all_councils }, $q, 'submit_problem'); |