Changeset 735

Show
Ignore:
Timestamp:
02/21/06 23:28:00 (3 years ago)
Author:
dom
Message:

Fix mod_perl redirect bug (closes #86)

Location:
trunk
Files:
2 modified

Legend:

Unmodified
Added
Removed

  • trunk/Changes

    r730 r735  
    1313        Fix <link> in RSS to point to RecentChanges page, not the feed itself. 
    1414        #67 Default website for a page is now http:// 
     15        Fix mod_perl redirect bug. 
    1516 
    16170.51    15 November 2005 

  • trunk/lib/OpenGuides.pm

    r730 r735  
    424424    my $long = $data{metadata}{longitude}[0]; 
    425425    my $script_url = $self->config->script_url; 
    426     print CGI->redirect( $script_url . "search.cgi?lat=$lat;long=$long;distance_in_metres=$metres" ); 
     426    my $q = CGI->new; 
     427    print $q->redirect( $script_url . "search.cgi?lat=$lat;long=$long;distance_in_metres=$metres" ); 
    427428} 
    428429 
    … …  
    937938    $redir_param .= $id; 
    938939    $redir_param .= ";oldid=$oldid" if $oldid; 
    939  
    940     return CGI->redirect( $redir_param ); 
     940     
     941    my $q = CGI->new; 
     942    return $q->redirect( $redir_param ); 
    941943} 
    942944