diff options
-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"; |