gnatsweb/770: gnatsweb/770: patch

The following reply was made to PR gnatsweb/770; it has been noted by GNATS.

From: Stephane Chazelas <[email protected]>
To: [email protected], [email protected]
Cc: 
Subject: gnatsweb/770: patch
Date: Fri, 16 Nov 2007 14:38:56 +0000

 Hiya,
 
 this patch does it for me. It's not very nice as it relies a bit
 on the CGI module internals, but the good thing about it is that
 it is short and definitive.
 
 --- gnatsweb.pl.orig	2003-07-29 13:24:22.000000000 +0100
 +++ gnatsweb.pl	2007-11-16 14:30:32.000000000 +0000
 @@ -2579,8 +2579,6 @@ sub store_query
      exit();
    }
  
 -  # Don't save certain params.
 -  $q->delete('cmd');
    my $query_string = $q->query_string();
  
    # strip empty params out of $query_string.  in a gnats db with many
 @@ -4148,6 +4146,9 @@ sub main
  
    $script_name = $q->script_name;
    my $cmd = $q->param('cmd') || ''; # avoid perl -w warning
 +  $q->delete('cmd');
 +  $ENV{'REQUEST_URI'} = $q->url(-absolute=>1,-query=>1);
 +
  
    ### Cookie-related code must happen before we print the HTML header.
    init_prefs();
 
 Cheers,
 Stephane