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 {