1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
|
#!/usr/bin/perl
#
# FixMyStreet:Map
# Adding the ability to have different maps on FixMyStreet.
#
# Copyright (c) 2010 UK Citizens Online Democracy. All rights reserved.
# Email: matthew@mysociety.org; WWW: http://www.mysociety.org/
package FixMyStreet::Map;
use strict;
use Module::Pluggable
sub_name => 'maps',
search_path => __PACKAGE__,
except => 'FixMyStreet::Map::Tilma::Original',
require => 1;
# Get the list of maps we want and load map classes at compile time
my @ALL_MAP_CLASSES = allowed_maps();
use Problems;
use mySociety::Config;
use mySociety::Gaze;
use mySociety::Locale;
use mySociety::Web qw(ent);
=head2 allowed_maps
Returns an array of all the map classes that were found and that
are permitted by the config.
=cut
sub allowed_maps {
my @allowed = split /,/, mySociety::Config::get('MAP_TYPE');
@allowed = map { __PACKAGE__.'::'.$_ } @allowed;
my %avail = map { $_ => 1 } __PACKAGE__->maps;
return grep { $avail{$_} } @allowed;
}
=head2 map_class
Set and return the appropriate class given a query parameter string.
=cut
our $map_class;
sub set_map_class {
my $str = shift;
$str = __PACKAGE__.'::'.$str if $str;
my %avail = map { $_ => 1 } @ALL_MAP_CLASSES;
$str = $ALL_MAP_CLASSES[0] unless $str && $avail{$str};
$map_class = $str;
}
sub header_js {
return $map_class->header_js(@_);
}
sub display_map {
return $map_class->display_map(@_);
}
sub map_features {
my ( $c, $lat, $lon, $interval ) = @_;
# TODO - be smarter about calculating the surrounding square
# use deltas that are roughly 500m in the UK - so we get a 1 sq km search box
my $lat_delta = 0.00438;
my $lon_delta = 0.00736;
my $min_lat = $lat - $lat_delta;
my $max_lat = $lat + $lat_delta;
my $min_lon = $lon - $lon_delta;
my $max_lon = $lon + $lon_delta;
# list of problems around map can be limited, but should show all pins
my $around_limit = $c->cobrand->on_map_list_limit || undef;
my @around_args = ( $min_lat, $max_lat, $min_lon, $max_lon, $interval );
my $around_map_list = $c->cobrand->problems->around_map( @around_args, $around_limit );
my $around_map = $c->cobrand->problems->around_map( @around_args, undef );
my $dist;
mySociety::Locale::in_gb_locale {
$dist =
mySociety::Gaze::get_radius_containing_population( $lat, $lon,
200000 );
};
$dist = int( $dist * 10 + 0.5 ) / 10;
my $limit = 20;
my @ids = map { $_->id } @$around_map_list;
my $nearby = $c->model('DB::Nearby')->nearby(
$c, $dist, \@ids, $limit, $lat, $lon, $interval
);
return ( $around_map, $around_map_list, $nearby, $dist );
}
sub map_pins {
return $map_class->map_pins(@_);
}
sub click_to_wgs84 {
return $map_class->click_to_wgs84(@_);
}
sub tile_xy_to_wgs84 {
return $map_class->tile_xy_to_wgs84(@_);
}
1;
|
