From b9469415fc8d9fe25b153fcd48b0b4165e369809 Mon Sep 17 00:00:00 2001
From: "gerv%gerv.net" <>
Date: Sat, 27 Jul 2002 03:37:03 +0000
Subject: Bug 158497 - Templatise colchange.cgi. Patch by gerv; r=burnus.

---
 colchange.cgi | 40 ++++++++++++----------------------------
 1 file changed, 12 insertions(+), 28 deletions(-)

(limited to 'colchange.cgi')

diff --git a/colchange.cgi b/colchange.cgi
index 727ad2c90..ef650a4d2 100755
--- a/colchange.cgi
+++ b/colchange.cgi
@@ -19,6 +19,7 @@
 # Rights Reserved.
 #
 # Contributor(s): Terry Weissman <terry@mozilla.org>
+#                 Gervase Markham <gerv@gerv.net>
 
 use diagnostics;
 use strict;
@@ -37,13 +38,10 @@ require "CGI.pl";
 ConnectToDatabase();
 quietly_check_login();
 
-print "Content-type: text/html\n";
+GetVersionTable();
 
 # The master list not only says what fields are possible, but what order
 # they get displayed in.
-
-GetVersionTable();
-
 my @masterlist = ("opendate", "changeddate", "severity", "priority",
                   "platform", "owner", "reporter", "status", "resolution",
                   "product", "component", "version", "os", "votes");
@@ -61,10 +59,9 @@ if (@::legal_keywords) {
     push(@masterlist, "keywords");
 }
 
-
 push(@masterlist, ("summary", "summaryfull"));
 
-$vars->{masterlist} = \@masterlist;
+$vars->{'masterlist'} = \@masterlist;
 
 my @collist;
 if (defined $::FORM{'rememberedquery'}) {
@@ -84,14 +81,15 @@ if (defined $::FORM{'rememberedquery'}) {
     my $list = join(" ", @collist);
     my $urlbase = Param("urlbase");
     my $cookiepath = Param("cookiepath");
+    
     print "Set-Cookie: COLUMNLIST=$list ; path=$cookiepath ; expires=Sun, 30-Jun-2029 00:00:00 GMT\n";
     print "Set-Cookie: SPLITHEADER=$::FORM{'splitheader'} ; path=$cookiepath ; 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";
+    print "Content-type: text/html\n\n";
+    $vars->{'message'} = "Resubmitting your query with new columns...";
+    $vars->{'title'} = "Change columns";
+    $template->process("global/message.html.tmpl", $vars)
+      || ThrowTemplateError($template->error());
     exit;
 }
 
@@ -101,26 +99,12 @@ if (defined $::COOKIE{'COLUMNLIST'}) {
     @collist = @::default_column_list;
 }
 
-$vars->{collist} = \@collist;
+$vars->{'collist'} = \@collist;
+$vars->{'splitheader'} = $::COOKIE{'SPLITHEADER'} ? 1 : 0;
 
-$vars->{splitheader} = 0;
-if ($::COOKIE{'SPLITHEADER'}) {
-    $vars->{splitheader} = 1;
-}
-
-my %desc = ();
-foreach my $i (@masterlist) {
-    $desc{$i} = $i;
-}
-
-$desc{'summary'} = "Summary (first 60 characters)";
-$desc{'summaryfull'} = "Full Summary";
-
-$vars->{desc} = \%desc;
-$vars->{buffer} = $::buffer;
+$vars->{'buffer'} = $::buffer;
 
 # Generate and return the UI (HTML page) from the appropriate template.
 print "Content-type: text/html\n\n";
 $template->process("list/change-columns.html.tmpl", $vars)
   || ThrowTemplateError($template->error());
-
-- 
cgit v1.2.3-24-g4f1b