diff options
| author | matthew <matthew> | 2006-09-20 16:47:51 +0000 |
|---|---|---|
| committer | matthew <matthew> | 2006-09-20 16:47:51 +0000 |
| commit | d984824465004def566ff4a58b85c5343453059b (patch) | |
| tree | 8c79404c566f05a4bb0e05f181f84b1cfa21d9db /perllib/Page.pm | |
| parent | cf82cfb91e9474cd3154793e3f55c6ebb1dee258 (diff) | |
Use real tileserver (currently 254x254, y goes up), all seems to work!
Diffstat (limited to 'perllib/Page.pm')
| -rw-r--r-- | perllib/Page.pm | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/perllib/Page.pm b/perllib/Page.pm index f3063b960..3a3fa9ca8 100644 --- a/perllib/Page.pm +++ b/perllib/Page.pm @@ -6,7 +6,7 @@ # Copyright (c) 2006 UK Citizens Online Democracy. All rights reserved. # Email: matthew@mysociety.org; WWW: http://www.mysociety.org/ # -# $Id: Page.pm,v 1.7 2006-09-20 14:16:21 matthew Exp $ +# $Id: Page.pm,v 1.8 2006-09-20 16:47:51 matthew Exp $ # package Page; @@ -114,14 +114,14 @@ sub error_page ($$) { sub compass ($$$) { my ($pc, $x, $y) = @_; - my $nw = url($pc, $x-1, $y-1); - my $n = url($pc, $x, $y-1); - my $ne = url($pc, $x+1, $y-1); + my $nw = url($pc, $x-1, $y+1); + my $n = url($pc, $x, $y+1); + my $ne = url($pc, $x+1, $y+1); my $w = url($pc, $x-1,$y); my $e = url($pc, $x+1,$y); - my $sw = url($pc, $x-1, $y+1); - my $s = url($pc, $x, $y+1); - my $se = url($pc, $x+1, $y+1); + my $sw = url($pc, $x-1, $y-1); + my $s = url($pc, $x, $y-1); + my $se = url($pc, $x+1, $y-1); return <<EOF; <table cellpadding="0" cellspacing="0" border="0" id="compass"> <tr valign="bottom"> |