diff options
| author | matthew <matthew> | 2008-09-19 10:24:55 +0000 |
|---|---|---|
| committer | matthew <matthew> | 2008-09-19 10:24:55 +0000 |
| commit | 6708e7dd9b259207c613bb08b693d0ee5a1f2f0d (patch) | |
| tree | 35d6c887c93a4a76e47400fa158dd35b58c32273 /perllib/Page.pm | |
| parent | 2b7fa24af368a4b66893fa5a26ff849807f5d427 (diff) | |
Nicer URLs for reports.
Diffstat (limited to 'perllib/Page.pm')
| -rw-r--r-- | perllib/Page.pm | 6 |
1 files changed, 3 insertions, 3 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"> |