aboutsummaryrefslogtreecommitdiffstats
path: root/web/index.cgi
diff options
context:
space:
mode:
authorMatthew Somerville <matthew@fury.ukcod.org.uk>2011-02-15 14:04:59 +0000
committerMatthew Somerville <matthew@fury.ukcod.org.uk>2011-02-15 14:04:59 +0000
commitc604dca5f9b27e654a45cd470266432b87419cb0 (patch)
treedee20cd03c9eb9b3451c7f9724438378bc1705ac /web/index.cgi
parent49ac669dadf27ca93681fc07769cf56f4e5285f9 (diff)
Council list related stuff, on /reports and admin page.
Diffstat (limited to 'web/index.cgi')
-rwxr-xr-xweb/index.cgi8
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');