From 767039b4ae3a933b8d593d88336a7a9432235178 Mon Sep 17 00:00:00 2001 From: Frédéric Buclin Date: Fri, 3 Aug 2012 12:16:55 +0200 Subject: Bug 780028: Oracle crashes if a column listed in ORDER BY appears twice in SELECT r=glob a=LpSolit --- Bugzilla/Search.pm | 17 +++++++++++++---- 1 file changed, 13 insertions(+), 4 deletions(-) (limited to 'Bugzilla') diff --git a/Bugzilla/Search.pm b/Bugzilla/Search.pm index e9baa124b..21a952e9c 100644 --- a/Bugzilla/Search.pm +++ b/Bugzilla/Search.pm @@ -835,10 +835,19 @@ sub _add_extra_column { # These are the columns that we're going to be actually SELECTing. sub _display_columns { my ($self) = @_; - # Do not alter the list specified here at all, even if they are duplicated. - # Those are passed by the caller, and the caller expects to get them back - # in the exact same order. - $self->{display_columns} ||= [$self->_input_columns, $self->_extra_columns]; + return @{ $self->{display_columns} } if $self->{display_columns}; + + # Do not alter the list from _input_columns at all, even if there are + # duplicated columns. Those are passed by the caller, and the caller + # expects to get them back in the exact same order. + my @columns = $self->_input_columns; + + # Only add columns which are not already listed. + my %list = map { $_ => 1 } @columns; + foreach my $column ($self->_extra_columns) { + push(@columns, $column) unless $list{$column}++; + } + $self->{display_columns} = \@columns; return @{ $self->{display_columns} }; } -- cgit v1.2.3-24-g4f1b