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
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
|
package FixMyStreet::Cobrand::FixaMinGata;
use base 'FixMyStreet::Cobrand::Default';
use strict;
use warnings;
use Carp;
use mySociety::MaPit;
use FixMyStreet::Geocode::FixaMinGata;
use DateTime;
sub country {
return 'SE';
}
sub languages { [ 'sv,Swedish,sv_SE' ] }
sub language_override { 'sv' }
sub enter_postcode_text {
my ( $self ) = @_;
return _('Enter a nearby postcode, or street name and area');
}
# Is also adding language parameter
sub disambiguate_location {
return {
lang => 'sv',
country => 'se', # Is this the right format? /Rikard
};
}
sub area_types {
[ 'KOM' ];
}
sub admin_base_url {
return 'http://www.fixamingata.se/admin/';
}
# If lat/lon are present in the URL, OpenLayers will use that to centre the map.
# Need to specify a zoom to stop it defaulting to null/0.
sub uri {
my ( $self, $uri ) = @_;
$uri->query_param( zoom => 3 )
if $uri->query_param('lat') && !$uri->query_param('zoom');
return $uri;
}
sub geocode_postcode {
my ( $self, $s ) = @_;
# Most people write Swedish postcodes like this:
#+ XXX XX, so let's remove the space
# Is this the right place to do this? //Rikard
# This is the right place! // Jonas
$s =~ s/\ //g; # Rikard, remove space in postcode
if ($s =~ /^\d{5}$/) {
my $location = mySociety::MaPit::call('postcode', $s);
if ($location->{error}) {
return {
error => $location->{code} =~ /^4/
? _('That postcode was not recognised, sorry.')
: $location->{error}
};
}
return {
latitude => $location->{wgs84_lat},
longitude => $location->{wgs84_lon},
};
}
return {};
}
# Vad gör den här funktionen? Är "Sverige" rätt här?
sub geocoded_string_check {
my ( $self, $s ) = @_;
return 1 if $s =~ /, Sverige/;
return 0;
}
sub find_closest {
my ( $self, $latitude, $longitude ) = @_;
return FixMyStreet::Geocode::OSM::closest_road_text( $self, $latitude, $longitude );
}
# Used by send-reports, calling find_closest, calling OSM geocoding
sub guess_road_operator {
my ( $self, $inforef ) = @_;
my $highway = $inforef->{highway} || "unknown";
my $refs = $inforef->{ref} || "unknown";
return "Trafikverket"
if $highway eq "trunk" || $highway eq "primary";
for my $ref (split(/;/, $refs)) {
return "Trafikverket"
if $ref =~ m/E ?\d+/ || $ref =~ m/Fv\d+/i;
}
return '';
}
sub remove_redundant_councils {
my $self = shift;
my $all_councils = shift;
# Oslo is both a kommune and a fylke, we only want to show it once
# Jag tror inte detta är applicerbart på Sverige ;-) //Rikard
#delete $all_councils->{301} #
# if $all_councils->{3};
}
sub filter_all_council_ids_list {
my $self = shift;
my @all_councils_ids = @_;
# as above we only want to show Oslo once
# Rikard kommenterar ut detta.
# return grep { $_ != 301 } @all_councils_ids;
# Rikard:
return @all_councils_ids; # Är detta rätt? //Rikard
}
# The pin is green is it's fixed, yellow if it's closed (but not fixed), and
# red otherwise.
sub pin_colour {
my ( $self, $p, $context ) = @_;
return 'green' if $p->is_fixed;
return 'yellow' if $p->is_closed;
return 'red';
}
1;
|
