Bugfix: Default SQLReport output columns randomly ordered

docs/changelog/6.x.x.txt

@@ -1,3 +1,7 @@
+6.3.0
+ - bugfix [ 1045114 ] Columns randomly ordered in SQLReport (Len Kranendonk ,
+   tnx brother for reporting)
+
 6.2.7
  - Expanded upon the help for URL extensions.
  - Added a workaround to a bug in Time::HiRes on windows.

lib/WebGUI/Paginator.pm

@@ -193,6 +193,21 @@ sub getBarTraditional {
 }
 
 
+#-------------------------------------------------------------------
+
+=head2 getColumnNames ( )
+
+Returns an array containing the column names
+
+=cut
+
+sub getColumnNames {
+	if(ref $_[0]->{_columnNames} eq 'ARRAY') {
+		return @{$_[0]->{_columnNames}};
+	}
+}
+
+
 #-------------------------------------------------------------------
 
 =head2 getFirstPageLink ( )
@@ -493,6 +508,7 @@ sub setDataByQuery {
 		$sth = WebGUI::SQL->read($sql,$dbh);
 	}
 	$self->{_totalRows} = $sth->rows;
+	$self->{_columnNames} = [ $sth->getColumnNames ];
 	my $pageCount = 1;
 	while (my $data = $sth->hashRef) {
 		$rowCount++;

lib/WebGUI/Wobject/SQLReport.pm

@@ -140,7 +140,7 @@ sub www_view {
 					my %row;
 					my $colnum = 1;
 					my @fields;
-					foreach my $name (keys %{$data}) {
+					foreach my $name ($p->getColumnNames) {
 						if ($first) {
 							push(@columns,{
 								'column.number'=>$colnum,