From b6cfd088c7954395478bd814e8393e00b1d0a0e6 Mon Sep 17 00:00:00 2001
From: Graham Knop <graham@plainblack.com>
Date: Mon, 24 Nov 2008 16:23:00 +0000
Subject: [PATCH] buildArray, buildArrayRef should only use the first column of
 results

---
 lib/WebGUI/SQL.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/WebGUI/SQL.pm b/lib/WebGUI/SQL.pm
index 98e1d4abf..5a8582784 100644
--- a/lib/WebGUI/SQL.pm
+++ b/lib/WebGUI/SQL.pm
@@ -129,7 +129,7 @@ sub buildArrayRef {
     $sth->execute($params);
     my @array;
     while (my $data = $sth->arrayRef) {
-        push @array, @$data;
+        push @array, $data->[0];
     }
     return \@array;
 }