From 26efb0e6b08ab84d736422e7ca410e6a16e54690 Mon Sep 17 00:00:00 2001
From: Graham Knop <haarg@haarg.org>
Date: Tue, 15 Jun 2010 03:56:26 -0500
Subject: [PATCH] fix setRow for when only id provided

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

diff --git a/lib/WebGUI/SQL.pm b/lib/WebGUI/SQL.pm
index a9346ffc7..e3d202374 100644
--- a/lib/WebGUI/SQL.pm
+++ b/lib/WebGUI/SQL.pm
@@ -895,8 +895,10 @@ sub setRow {
         my %data = %$data;
         delete $data{$keyColumn};
 
-        my $fields = join ', ', map { $self->quote_identifier($_). '=?' } keys %data;
-        $self->do("UPDATE $table SET $fields WHERE $key = ?", {}, values %data, $id);
+        if ( keys %data ) {
+            my $fields = join ', ', map { $self->quote_identifier($_). '=?' } keys %data;
+            $self->do("UPDATE $table SET $fields WHERE $key = ?", {}, values %data, $id);
+        }
     };
 
     return $id;