Author: dom
Date: 2006-02-21 23:28:00 +0000 (Tue, 21 Feb 2006)
New Revision: 735
Modified:
trunk/Changes
trunk/lib/OpenGuides.pm
Log:
Fix mod_perl redirect bug (closes #86)
Modified: trunk/Changes
===================================================================
--- trunk/Changes 2006-01-08 17:33:16 UTC (rev 734)
+++ trunk/Changes 2006-02-21 23:28:00 UTC (rev 735)
@@ -12,6 +12,7 @@
(the latter feature is user-configurable).
Fix <link> in RSS to point to RecentChanges page, not the feed itself.
#67 Default website for a page is now http://
+ Fix mod_perl redirect bug.
0.51 15 November 2005
Important changes:
Modified: trunk/lib/OpenGuides.pm
===================================================================
--- trunk/lib/OpenGuides.pm 2006-01-08 17:33:16 UTC (rev 734)
+++ trunk/lib/OpenGuides.pm 2006-02-21 23:28:00 UTC (rev 735)
@@ -423,7 +423,8 @@
my $lat = $data{metadata}{latitude}[0];
my $long = $data{metadata}{longitude}[0];
my $script_url = $self->config->script_url;
- print CGI->redirect( $script_url . "search.cgi?lat=$lat;long=$long;distance_in_metres=$metres" );
+ my $q = CGI->new;
+ print $q->redirect( $script_url . "search.cgi?lat=$lat;long=$long;distance_in_metres=$metres" );
}
=item B<show_backlinks>
@@ -936,8 +937,9 @@
$redir_param .= 'id=' if $oldid;
$redir_param .= $id;
$redir_param .= ";oldid=$oldid" if $oldid;
-
- return CGI->redirect( $redir_param );
+
+ my $q = CGI->new;
+ return $q->redirect( $redir_param );
}
sub get_cookie {