diff options
| author | cyeh%bluemartini.com <> | 2000-08-31 06:01:26 +0000 |
|---|---|---|
| committer | cyeh%bluemartini.com <> | 2000-08-31 06:01:26 +0000 |
| commit | 8562672bb3900038d9b98fff7979b2468ac02257 (patch) | |
| tree | da6514703cf1bae98e9fe56600fab5a75f46aaf9 /colchange.cgi | |
| parent | b1715ca363b70fa181a02d40d0e80175ec9ec7f3 (diff) | |
| download | bugs-8562672bb3900038d9b98fff7979b2468ac02257.tar bugs-8562672bb3900038d9b98fff7979b2468ac02257.tar.gz bugs-8562672bb3900038d9b98fff7979b2468ac02257.tar.bz2 bugs-8562672bb3900038d9b98fff7979b2468ac02257.tar.xz bugs-8562672bb3900038d9b98fff7979b2468ac02257.zip | |
fix for 32828: Redirect fails on Internet explorer: colchange.cgi
patch from mtakacs@pacbell.net
Diffstat (limited to 'colchange.cgi')
| -rwxr-xr-x | colchange.cgi | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/colchange.cgi b/colchange.cgi index 2d145955b..1ce0d5388 100755 --- a/colchange.cgi +++ b/colchange.cgi @@ -70,10 +70,12 @@ if (defined $::FORM{'rememberedquery'}) { } } my $list = join(" ", @collist); + my $urlbase = Param("urlbase"); print "Set-Cookie: COLUMNLIST=$list ; path=/ ; expires=Sun, 30-Jun-2029 00:00:00 GMT\n"; print "Set-Cookie: SPLITHEADER=$::FORM{'splitheader'} ; path=/ ; expires=Sun, 30-Jun-2029 00:00:00 GMT\n"; print "Refresh: 0; URL=buglist.cgi?$::FORM{'rememberedquery'}\n"; print "\n"; + print "<META HTTP-EQUIV=Refresh CONTENT=\"1; URL=$urlbase"."buglist.cgi?$::FORM{'rememberedquery'}\">\n"; print "<TITLE>What a hack.</TITLE>\n"; PutHeader ("Change columns"); print "Resubmitting your query with new columns...\n"; |