aboutsummaryrefslogtreecommitdiffstats
path: root/perllib/FixMyStreet/App/Controller/Report/New.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perllib/FixMyStreet/App/Controller/Report/New.pm')
-rw-r--r--perllib/FixMyStreet/App/Controller/Report/New.pm7
1 files changed, 2 insertions, 5 deletions
diff --git a/perllib/FixMyStreet/App/Controller/Report/New.pm b/perllib/FixMyStreet/App/Controller/Report/New.pm
index 46a90384c..375b36a51 100644
--- a/perllib/FixMyStreet/App/Controller/Report/New.pm
+++ b/perllib/FixMyStreet/App/Controller/Report/New.pm
@@ -341,6 +341,7 @@ could be found.
sub determine_location : Private {
my ( $self, $c ) = @_;
+ $c->stash->{fetch_all_areas} = 1;
return 1
if #
( #
@@ -618,11 +619,7 @@ sub process_report : Private {
$report->name( Utils::trim_text( $params{name} ) );
$report->category( _ $params{category} );
- # FIXME: This is more inefficient than old FixMyStreet code,
- # with 2 MaPit point calls per submission now rather than just one.
- my $mapit_query =
- sprintf( "4326/%s,%s", $report->longitude, $report->latitude );
- my $areas = mySociety::MaPit::call( 'point', $mapit_query );
+ my $areas = $c->stash->{all_areas};
$report->areas( ',' . join( ',', sort keys %$areas ) . ',' );
# From earlier in the process.