Patch for bug 276842: Move @default_column_list out of globals.pl into…

Bugzilla/Constants.pm

@@ -61,6 +61,8 @@ use base qw(Exporter);
     GROUP_MEMBERSHIP
     GROUP_BLESS
     GROUP_VISIBLE
+
+    DEFAULT_COLUMN_LIST
 );
 
 @Bugzilla::Constants::EXPORT_OK = qw(contenttypes);
@@ -199,4 +201,10 @@ use constant GROUP_MEMBERSHIP => 0;
 use constant GROUP_BLESS => 1;
 use constant GROUP_VISIBLE => 2;
 
+# The default list of columns for buglist.cgi
+use constant DEFAULT_COLUMN_LIST => (
+    "bug_severity", "priority", "rep_platform","assigned_to",
+    "bug_status", "resolution", "short_short_desc"
+);
+
 1;

buglist.cgi

@@ -44,7 +44,6 @@ require "CGI.pl";
 
 use vars qw($db_name
             @components
-            @default_column_list
             $defaultqueryname
             @legal_keywords
             @legal_platform
@@ -513,7 +512,7 @@ elsif (defined $cgi->cookie('COLUMNLIST')) {
 }
 else {
     # Use the default list of columns.
-    @displaycolumns = @::default_column_list;
+    @displaycolumns = DEFAULT_COLUMN_LIST;
 }
 
 # Weed out columns that don't actually exist to prevent the user 

colchange.cgi

@@ -33,7 +33,7 @@ use vars qw(
 );
 
 use Bugzilla;
-
+use Bugzilla::Constants;
 require "CGI.pl";
 
 Bugzilla->login();
@@ -88,7 +88,7 @@ my @collist;
 if (defined $cgi->param('rememberedquery')) {
     my $splitheader = 0;
     if (defined $cgi->param('resetit')) {
-        @collist = @::default_column_list;
+        @collist = DEFAULT_COLUMN_LIST;
     } else {
         foreach my $i (@masterlist) {
             if (defined $cgi->param("column_$i")) {
@@ -133,7 +133,7 @@ if (defined $cgi->param('rememberedquery')) {
 if (defined $cgi->cookie('COLUMNLIST')) {
     @collist = split(/ /, $cgi->cookie('COLUMNLIST'));
 } else {
-    @collist = @::default_column_list;
+    @collist = DEFAULT_COLUMN_LIST;
 }
 
 $vars->{'collist'} = \@collist;

globals.pl

@@ -110,10 +110,6 @@ $::unconfirmedstate = "UNCONFIRMED";
 #}
 #$::SIG{__DIE__} = \&die_with_dignity;
 
-@::default_column_list = ("bug_severity", "priority", "rep_platform", 
-                          "assigned_to", "bug_status", "resolution",
-                          "short_short_desc");
-
 sub AppendComment {
     my ($bugid, $who, $comment, $isprivate, $timestamp, $work_time) = @_;
     $work_time ||= 0;