diff options
Diffstat (limited to 'web/rss.cgi')
| -rwxr-xr-x | web/rss.cgi | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/web/rss.cgi b/web/rss.cgi index 650aa7d28..cb526ec75 100755 --- a/web/rss.cgi +++ b/web/rss.cgi @@ -6,7 +6,7 @@ # Copyright (c) 2007 UK Citizens Online Democracy. All rights reserved. # Email: matthew@mysociety.org. WWW: http://www.mysociety.org # -# $Id: rss.cgi,v 1.5 2007-05-14 18:20:42 matthew Exp $ +# $Id: rss.cgi,v 1.6 2007-05-16 17:47:42 matthew Exp $ use strict; require 5.8.0; @@ -41,9 +41,12 @@ sub main { my $x = $q->param('x'); my $y = $q->param('y'); my $qs = 'x='.$x.';y='.$y; + my $d = $q->param('d'); + $qs .= ";d=$d" if $d; + $d = 10 unless $d; $x = ($x * 5000 / 31); $y = ($y * 5000 / 31); - mySociety::Alert::generate_rss($type, $qs, $x, $y); + mySociety::Alert::generate_rss($type, $qs, $x, $y, $d); } elsif ($type eq 'new_updates') { my $id = $q->param('id'); my $qs = 'id='.$id; |