diff options
Diffstat (limited to 'perllib')
| -rw-r--r-- | perllib/Page.pm | 6 | ||||
| -rw-r--r-- | perllib/Problems.pm | 4 |
2 files changed, 5 insertions, 5 deletions
diff --git a/perllib/Page.pm b/perllib/Page.pm index 7efab3896..587798630 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.113 2008-09-18 10:28:21 matthew Exp $ +# $Id: Page.pm,v 1.114 2008-09-19 10:24:55 matthew Exp $ # package Page; @@ -344,7 +344,7 @@ sub display_pin { . $num . '.gif" alt="' . _('Problem') . '" style="top:' . ($py-59) . 'px; left:' . ($px) . 'px; position: absolute;">'; return $out unless $_ && $_->{id} && $col ne 'blue'; - my $url = '/?id=' . $_->{id}; + my $url = '/report/' . $_->{id}; $out = '<a title="' . ent($_->{title}) . '" href="' . $url . '">' . $out . '</a>'; return $out; } @@ -417,7 +417,7 @@ sub compass ($$$) { $compass[$i][$j] = NewURL($q, x=>$i, y=>$j); } } - my $recentre = NewURL($q, x=>undef, y=>undef); + my $recentre = NewURL($q); return <<EOF; <table cellpadding="0" cellspacing="0" border="0" id="compass"> <tr valign="bottom"> diff --git a/perllib/Problems.pm b/perllib/Problems.pm index b1c81be94..2c01b456d 100644 --- a/perllib/Problems.pm +++ b/perllib/Problems.pm @@ -6,7 +6,7 @@ # Copyright (c) 2008 UK Citizens Online Democracy. All rights reserved. # Email: matthew@mysociety.org; WWW: http://www.mysociety.org/ # -# $Id: Problems.pm,v 1.6 2008-09-17 21:40:44 matthew Exp $ +# $Id: Problems.pm,v 1.7 2008-09-19 10:24:55 matthew Exp $ # package Problems; @@ -104,7 +104,7 @@ sub recent_photos { my $out = ''; foreach (@$probs) { my $title = ent($_->{title}); - $out .= '<a href="/?id=' . $_->{id} . + $out .= '<a href="/report/' . $_->{id} . '"><img border="0" src="/photo?tn=1;id=' . $_->{id} . '" alt="' . $title . '" title="' . $title . '"></a>'; } |