diff options
| author | Struan Donald <struan@exo.org.uk> | 2011-06-30 16:56:12 +0100 |
|---|---|---|
| committer | Struan Donald <struan@exo.org.uk> | 2011-06-30 16:56:12 +0100 |
| commit | 0e6bb3e802c0614d64366bd19732b37a574dc12c (patch) | |
| tree | 01b5d111754a0acef3f8a71da526ce1fbe59de55 /perllib/FixMyStreet/Map/Tilma/Original.pm | |
| parent | b756440e4b5c0b356ee0d65d1647124317535c95 (diff) | |
| parent | fb78afe61194ea9b6fbec9596d69627e315ab97f (diff) | |
Merge branch 'master' of ssh://git.mysociety.org/data/git/public/fixmystreet into new_statuses
Conflicts:
perllib/FixMyStreet/App/Controller/Reports.pm
Diffstat (limited to 'perllib/FixMyStreet/Map/Tilma/Original.pm')
| -rw-r--r-- | perllib/FixMyStreet/Map/Tilma/Original.pm | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/perllib/FixMyStreet/Map/Tilma/Original.pm b/perllib/FixMyStreet/Map/Tilma/Original.pm index 8fd835265..46cf3ad40 100644 --- a/perllib/FixMyStreet/Map/Tilma/Original.pm +++ b/perllib/FixMyStreet/Map/Tilma/Original.pm @@ -96,7 +96,15 @@ sub display_pin { } sub map_pins { - my ($self, $c, $x, $y, $sx, $sy, $interval) = @_; + my ($self, $c, $interval) = @_; + + # Our current X/Y middle of visible map + my $x = ( $c->req->param('x') || 0 ) + 0; + my $y = ( $c->req->param('y') || 0 ) + 0; + + # Where we started as that's the (0,0) we have to work to + my $sx = ( $c->req->param('sx') || 0 ) + 0; + my $sy = ( $c->req->param('sy') || 0 ) + 0; my $e = tile_to_os($x); my $n = tile_to_os($y); |