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
|
#!/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 Problems;
use Cobrand;
use mySociety::Config;
use mySociety::Gaze;
use mySociety::Locale;
use mySociety::Web qw(ent NewURL);
use Utils;
# Run on module boot up
load();
# This is yucky, but no-one's taught me a better way
sub load {
my $type = mySociety::Config::get('MAP_TYPE');
my $class = "FixMyStreet::Map::$type";
eval "use $class";
# If we have an error die as it is a compile error rather than runtime error
die $@ if $@;
}
sub header {
my ( $q, $type ) = @_;
return '' unless $type;
my $cobrand = Page::get_cobrand($q);
my $cobrand_form_elements =
Cobrand::form_elements( $cobrand, 'mapForm', $q );
my $form_action = Cobrand::url( $cobrand, '', $q );
my $encoding = '';
$encoding = ' enctype="multipart/form-data"' if $type == 2;
my $pc = $q->param('pc') || '';
my $pc_enc = ent($pc);
return <<EOF;
<form action="$form_action" method="post" name="mapForm" id="mapForm"$encoding>
<input type="hidden" name="submit_map" value="1">
<input type="hidden" name="pc" value="$pc_enc">
$cobrand_form_elements
EOF
}
=head2 map_features_easting_northing
Wrapper around map_features which does the easting, northing to lat, lon
conversion.
=cut
sub map_features_easting_northing {
my ( $q, $easting, $northing, $interval ) = @_;
my ( $lat, $lon ) = Utils::convert_en_to_latlon( $easting, $northing );
return map_features( $q, $lat, $lon, $interval );
}
sub map_features {
my ( $q, $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 #
= Cobrand::on_map_list_limit( Page::get_cobrand($q) ) || undef;
my @around_args = ( $min_lat, $max_lat, $min_lon, $max_lon, $interval );
my $around_map_list = Problems::around_map( @around_args, $around_limit );
my $around_map = 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 = Problems::nearby( $dist, join( ',', @ids ),
$limit, $lat, $lon, $interval );
return ( $around_map, $around_map_list, $nearby, $dist );
}
1;
|
