perllib/FixMyStreet/Map/Tilma/OpenLayers.pm


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

#!/usr/bin/perl
#
# FixMyStreet:Map::Tilma::1_10k_OL
# Using tilma.mysociety.org with OpenLayers
#
# Copyright (c) 2010 UK Citizens Online Democracy. All rights reserved.
# Email: matthew@mysociety.org; WWW: http://www.mysociety.org/

package FixMyStreet::Map::Tilma::OpenLayers;

use strict;

sub TILE_WIDTH()   { return $FixMyStreet::Map::map_class->tile_width;   }
sub SCALE_FACTOR() { return $FixMyStreet::Map::map_class->scale_factor; }
sub TILE_TYPE()    { return $FixMyStreet::Map::map_class->tile_type;    }

# display_map C PARAMS
# PARAMS include:
# latitude, longitude for the centre point of the map
# TYPE is 1 if the map is clickable, 0 otherwise.
# PINS is array of pins to show, location and colour
sub display_map {
    my ($self, $c, %params) = @_;
    $c->stash->{map} = {
        %params,
        type => 'tilma/openlayers',
        tile_type => TILE_TYPE,
        tilewidth => TILE_WIDTH,
        watermark => $self->watermark(),
        copyright => $self->copyright(),
        maxResolution => SCALE_FACTOR / TILE_WIDTH,
    };
}

1;