diff options
| -rw-r--r-- | perllib/Page.pm | 4 | ||||
| -rwxr-xr-x | web/ajax.cgi | 8 |
2 files changed, 6 insertions, 6 deletions
diff --git a/perllib/Page.pm b/perllib/Page.pm index 5f8b29791..2d123d903 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.110 2008-09-16 16:02:40 matthew Exp $ +# $Id: Page.pm,v 1.111 2008-09-17 14:55:48 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 = NewURL($q, id=>$_->{id}, x=>undef, y=>undef); + my $url = '/?id=' . $_->{id}; $out = '<a title="' . $_->{title} . '" href="' . $url . '">' . $out . '</a>'; return $out; } diff --git a/web/ajax.cgi b/web/ajax.cgi index 7efae6de5..0e971a36c 100755 --- a/web/ajax.cgi +++ b/web/ajax.cgi @@ -6,11 +6,11 @@ # Copyright (c) 2008 UK Citizens Online Democracy. All rights reserved. # Email: matthew@mysociety.org. WWW: http://www.mysociety.org # -# $Id: ajax.cgi,v 1.1 2008-09-16 15:45:10 matthew Exp $ +# $Id: ajax.cgi,v 1.2 2008-09-17 14:55:48 matthew Exp $ use strict; use Standard; -use mySociety::Web qw(ent NewURL); +use mySociety::Web qw(ent); sub main { my $q = shift; @@ -35,7 +35,7 @@ sub main { my $list = ''; foreach (@$on_map) { - $list .= '<li><a href="' . NewURL($q, id=>$_->{id}, x=>undef, y=>undef) . '">'; + $list .= '<li><a href="/?id=' . $_->{id} . '">'; $list .= $_->{title}; $list .= '</a>'; $list .= ' <small>(fixed)</small>' if $_->{state} eq 'fixed'; @@ -45,7 +45,7 @@ sub main { $list = ''; foreach (@$around_map) { - $list .= '<li><a href="' . NewURL($q, id=>$_->{id}, x=>undef, y=>undef) . '">'; + $list .= '<li><a href="/?id=' . $_->{id} . '">'; $list .= $_->{title} . ' <small>(' . int($_->{distance}/100+.5)/10 . 'km)</small>'; $list .= '</a>'; $list .= ' <small>(fixed)</small>' if $_->{state} eq 'fixed'; |