aboutsummaryrefslogtreecommitdiffstats
path: root/perllib/Page.pm
diff options
context:
space:
mode:
authormatthew <matthew>2008-09-10 11:37:36 +0000
committermatthew <matthew>2008-09-10 11:37:36 +0000
commitc25c0ded011d6e869cac5f9bf11626e4a2d1832d (patch)
tree86784693c05d8106678bab6383451f6956f87cab /perllib/Page.pm
parent6c77757b8733d6d438bee130c8e0e1510816858b (diff)
Show all pins within map square, will do for starters.
Diffstat (limited to 'perllib/Page.pm')
-rw-r--r--perllib/Page.pm4
1 files changed, 2 insertions, 2 deletions
diff --git a/perllib/Page.pm b/perllib/Page.pm
index 7dae145fc..6cacf18be 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.106 2008-08-27 10:27:47 francis Exp $
+# $Id: Page.pm,v 1.107 2008-09-10 11:37:36 matthew Exp $
#
package Page;
@@ -336,7 +336,7 @@ sub display_map_end {
sub display_pin {
my ($q, $px, $py, $col, $num) = @_;
- $num = '' unless $num;
+ $num = '' if !$num || $num > 9;
my %cols = (red=>'R', green=>'G', blue=>'B', purple=>'P');
my $out = '<img class="pin" src="/i/pin' . $cols{$col}
. $num . '.gif" alt="' . _('Problem') . '" style="top:' . ($py-59)