diff options
Diffstat (limited to 'perllib/FixMyStreet/App/Controller')
-rw-r--r-- | perllib/FixMyStreet/App/Controller/Admin/Bodies.pm | 11 | ||||
-rw-r--r-- | perllib/FixMyStreet/App/Controller/Admin/Users.pm | 3 | ||||
-rw-r--r-- | perllib/FixMyStreet/App/Controller/Council.pm | 13 | ||||
-rw-r--r-- | perllib/FixMyStreet/App/Controller/Open311.pm | 8 | ||||
-rw-r--r-- | perllib/FixMyStreet/App/Controller/Report/New.pm | 1 | ||||
-rw-r--r-- | perllib/FixMyStreet/App/Controller/Reports.pm | 18 | ||||
-rwxr-xr-x | perllib/FixMyStreet/App/Controller/Rss.pm | 4 |
7 files changed, 21 insertions, 37 deletions
diff --git a/perllib/FixMyStreet/App/Controller/Admin/Bodies.pm b/perllib/FixMyStreet/App/Controller/Admin/Bodies.pm index 1f8840bcb..0e47d2238 100644 --- a/perllib/FixMyStreet/App/Controller/Admin/Bodies.pm +++ b/perllib/FixMyStreet/App/Controller/Admin/Bodies.pm @@ -6,6 +6,7 @@ BEGIN { extends 'Catalyst::Controller'; } use POSIX qw(strcoll); use mySociety::EmailUtil qw(is_valid_email_list); +use FixMyStreet::MapIt; use FixMyStreet::SendReport; =head1 NAME @@ -104,7 +105,7 @@ sub body : Chained('/') : PathPart('admin/body') : CaptureArgs(1) { $c->stash->{body} = $body; if ($body->body_areas->first) { - my $example_postcode = mySociety::MaPit::call('area/example_postcode', $body->body_areas->first->area_id); + my $example_postcode = FixMyStreet::MapIt::call('area/example_postcode', $body->body_areas->first->area_id); if ($example_postcode && ! ref $example_postcode) { $c->stash->{example_pc} = $example_postcode; } @@ -187,14 +188,10 @@ sub body_form_dropdowns : Private { my $areas; my $whitelist = $c->config->{MAPIT_ID_WHITELIST}; - my %params; - $params{generation} = $c->config->{MAPIT_GENERATION} - if $c->config->{MAPIT_GENERATION}; - if ( $whitelist && ref $whitelist eq 'ARRAY' && @$whitelist ) { - $areas = mySociety::MaPit::call('areas', $whitelist, %params); + $areas = FixMyStreet::MapIt::call('areas', $whitelist); } else { - $areas = mySociety::MaPit::call('areas', $c->cobrand->area_types, %params); + $areas = FixMyStreet::MapIt::call('areas', $c->cobrand->area_types); } # Some cobrands may want to add extra areas at runtime beyond those diff --git a/perllib/FixMyStreet/App/Controller/Admin/Users.pm b/perllib/FixMyStreet/App/Controller/Admin/Users.pm index 11a6d9962..bcbc808ed 100644 --- a/perllib/FixMyStreet/App/Controller/Admin/Users.pm +++ b/perllib/FixMyStreet/App/Controller/Admin/Users.pm @@ -8,6 +8,7 @@ use POSIX qw(strcoll); use mySociety::EmailUtil qw(is_valid_email); use Text::CSV; +use FixMyStreet::MapIt; use FixMyStreet::SMS; use Utils; @@ -450,7 +451,7 @@ sub user_alert_details : Private { } if (@wards) { - $c->stash->{alert_areas} = mySociety::MaPit::call('areas', join(',', @wards) ); + $c->stash->{alert_areas} = FixMyStreet::MapIt::call('areas', join(',', @wards) ); } my %body_names = map { $_->{id} => $_->{name} } @{ $c->stash->{bodies} }; diff --git a/perllib/FixMyStreet/App/Controller/Council.pm b/perllib/FixMyStreet/App/Controller/Council.pm index 2e2dce0f7..4acaba903 100644 --- a/perllib/FixMyStreet/App/Controller/Council.pm +++ b/perllib/FixMyStreet/App/Controller/Council.pm @@ -2,6 +2,8 @@ package FixMyStreet::App::Controller::Council; use Moose; use namespace::autoclean; +use FixMyStreet::MapIt; + BEGIN {extends 'Catalyst::Controller'; } =head1 NAME @@ -59,10 +61,6 @@ sub load_and_check_areas : Private { my $all_areas; - my %params; - $params{generation} = $c->config->{MAPIT_GENERATION} - if $c->config->{MAPIT_GENERATION}; - if ($prefetched_all_areas) { $all_areas = { map { $_ => { id => $_ } } @@ -71,8 +69,7 @@ sub load_and_check_areas : Private { } elsif ( $c->stash->{fetch_all_areas} ) { my %area_types = map { $_ => 1 } @$area_types; $all_areas = - mySociety::MaPit::call( 'point', - "4326/$longitude,$latitude", %params ); + FixMyStreet::MapIt::call('point', "4326/$longitude,$latitude"); $c->stash->{all_areas_mapit} = $all_areas; $all_areas = { map { $_ => $all_areas->{$_} } @@ -81,9 +78,7 @@ sub load_and_check_areas : Private { }; } else { $all_areas = - mySociety::MaPit::call( 'point', - "4326/$longitude,$latitude", %params, - type => $area_types ); + FixMyStreet::MapIt::call('point', "4326/$longitude,$latitude", type => $area_types); } if ($all_areas->{error}) { $c->stash->{location_error_mapit_error} = 1; diff --git a/perllib/FixMyStreet/App/Controller/Open311.pm b/perllib/FixMyStreet/App/Controller/Open311.pm index 5d7ec63d6..97e1a782a 100644 --- a/perllib/FixMyStreet/App/Controller/Open311.pm +++ b/perllib/FixMyStreet/App/Controller/Open311.pm @@ -7,6 +7,7 @@ use namespace::autoclean; use JSON::MaybeXS; use XML::Simple; use DateTime::Format::W3CDTF; +use FixMyStreet::MapIt; BEGIN { extends 'Catalyst::Controller'; } @@ -164,12 +165,7 @@ sub get_services : Private { if ($lat || $lon) { my $area_types = $c->cobrand->area_types; - my %params = ( type => $area_types ); - $params{generation} = $c->config->{MAPIT_GENERATION} - if $c->config->{MAPIT_GENERATION}; - my $all_areas = mySociety::MaPit::call('point', - "4326/$lon,$lat", - %params); + my $all_areas = FixMyStreet::MapIt::call('point', "4326/$lon,$lat", type => $area_types); $categories = $categories->search( { 'body_areas.area_id' => [ keys %$all_areas ], }, { join => { 'body' => 'body_areas' } } ); diff --git a/perllib/FixMyStreet/App/Controller/Report/New.pm b/perllib/FixMyStreet/App/Controller/Report/New.pm index b6292facb..5f039a074 100644 --- a/perllib/FixMyStreet/App/Controller/Report/New.pm +++ b/perllib/FixMyStreet/App/Controller/Report/New.pm @@ -9,7 +9,6 @@ use List::MoreUtils qw(uniq); use List::Util 'first'; use POSIX 'strcoll'; use HTML::Entities; -use mySociety::MaPit; use Path::Class; use Utils; use mySociety::EmailUtil; diff --git a/perllib/FixMyStreet/App/Controller/Reports.pm b/perllib/FixMyStreet/App/Controller/Reports.pm index 751870bd4..49bdce379 100644 --- a/perllib/FixMyStreet/App/Controller/Reports.pm +++ b/perllib/FixMyStreet/App/Controller/Reports.pm @@ -6,7 +6,7 @@ use JSON::MaybeXS; use List::MoreUtils qw(any); use Path::Tiny; use RABX; -use mySociety::MaPit; +use FixMyStreet::MapIt; BEGIN { extends 'Catalyst::Controller'; } @@ -219,12 +219,10 @@ sub rss_area_ward : Path('/rss/area') : Args(2) { # We're checking an area here, but this function is currently doing that. return if $c->cobrand->reports_body_check( $c, $area ); - my %params = ( type => $c->cobrand->area_types ); - $params{generation} = $c->config->{MAPIT_GENERATION} - if $c->config->{MAPIT_GENERATION}; - # We must now have a string to check on mapit - my $areas = mySociety::MaPit::call( 'areas', $area, %params ); + my $areas = FixMyStreet::MapIt::call( 'areas', $area, + type => $c->cobrand->area_types, + ); if (keys %$areas == 1) { ($c->stash->{area}) = values %$areas; @@ -393,11 +391,9 @@ sub ward_check : Private { $parent_id = $c->stash->{area}->{id}; } - my %params = ( type => $c->cobrand->area_types_children ); - $params{generation} = $c->config->{MAPIT_GENERATION} - if $c->config->{MAPIT_GENERATION}; - - my $qw = mySociety::MaPit::call('area/children', [ $parent_id ], %params); + my $qw = FixMyStreet::MapIt::call('area/children', [ $parent_id ], + type => $c->cobrand->area_types_children, + ); my %names = map { $c->cobrand->short_name({ name => $_ }) => 1 } @wards; my @areas; foreach my $area (sort { $a->{name} cmp $b->{name} } values %$qw) { diff --git a/perllib/FixMyStreet/App/Controller/Rss.pm b/perllib/FixMyStreet/App/Controller/Rss.pm index e1da4445d..443e45b93 100755 --- a/perllib/FixMyStreet/App/Controller/Rss.pm +++ b/perllib/FixMyStreet/App/Controller/Rss.pm @@ -11,7 +11,7 @@ use FixMyStreet::App::Model::PhotoSet; use FixMyStreet::Gaze; use mySociety::Locale; -use mySociety::MaPit; +use FixMyStreet::MapIt; use Lingua::EN::Inflect qw(ORD); BEGIN { extends 'Catalyst::Controller'; } @@ -66,7 +66,7 @@ sub reports_in_area : LocalRegex('^area/(\d+)$') { my ( $self, $c ) = @_; my $id = $c->req->captures->[0]; - my $area = mySociety::MaPit::call('area', $id); + my $area = FixMyStreet::MapIt::call('area', $id); $c->stash->{type} = 'area_problems'; $c->stash->{qs} = '/' . $id; $c->stash->{db_params} = [ $id ]; |