From 9c6b4201f703bad4418d794e3ad42c9f433a0076 Mon Sep 17 00:00:00 2001
From: Graham Knop <haarg@haarg.org>
Date: Sun, 13 Jun 2010 06:16:32 -0500
Subject: [PATCH] fix SQL methods

---
 lib/WebGUI/SQL.pm | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/lib/WebGUI/SQL.pm b/lib/WebGUI/SQL.pm
index c8c824756..a9346ffc7 100644
--- a/lib/WebGUI/SQL.pm
+++ b/lib/WebGUI/SQL.pm
@@ -622,7 +622,8 @@ sub quickArray {
     my $self = shift;
     my $sql = shift;
     my $params = shift || [];
-    return $self->selectrow_array($sql, {}, @{ $params });
+    my @result = $self->selectrow_array($sql, {}, @{ $params });
+    return @result;
 }
 
 
@@ -686,7 +687,7 @@ sub quickHash {
     my $sql = shift;
     my $params = shift;
     my $row = $self->selectrow_hashref($sql, {}, @$params);
-    return %{$row};
+    return $row ? %{$row} : ();
 }
 
 #-------------------------------------------------------------------
@@ -709,7 +710,7 @@ sub quickHashRef {
     my $self = shift;
     my $sql = shift;
     my $params = shift;
-    return $self->selectrow_hashref($sql, {}, @$params);
+    return $self->selectrow_hashref($sql, {}, @$params) || {};
 }
 
 #-------------------------------------------------------------------