#!/usr/bin/perl # # FixMyStreet:Map::OSM::StreetView # OSM StreetView 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 mySociety::Web qw(ent); sub header_js { return ' '; } # display_map Q PARAMS # PARAMS include: # EASTING, NORTHING for the centre point of the map # TYPE is 1 if the map is clickable, 2 if clickable and has a form upload, # 0 if not clickable # PINS is array of pins to show, location and colour # PRE/POST are HTML to show above/below map sub display_map { my ($q, %params) = @_; $params{pre} ||= ''; $params{post} ||= ''; foreach my $pin (@{$params{pins}}) { } my $out = FixMyStreet::Map::header($q, $params{type}); my $copyright = _('Map contains Ordnance Survey data © Crown copyright and database right 2010.'); $out .= < var fixmystreet = { 'easting': $params{easting}, 'northing': $params{northing} }
$params{pre}
$params{post}
EOF return $out; } sub display_map_end { my ($type) = @_; my $out = '
'; $out .= '' if ($type); return $out; } sub display_pin { } sub map_pins { } 1;