From 91b1c002157000fa083abf82aabf6c89162158d8 Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Thu, 28 Aug 2008 14:29:39 +0000
Subject: [PATCH] fix deleting entries in the DataForm

---
 docs/changelog/7.x.x.txt             | 1 +
 lib/WebGUI/Asset/Wobject/DataForm.pm | 4 ++--
 2 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/docs/changelog/7.x.x.txt b/docs/changelog/7.x.x.txt
index 53ee35b75..46dbf55c6 100644
--- a/docs/changelog/7.x.x.txt
+++ b/docs/changelog/7.x.x.txt
@@ -13,6 +13,7 @@
  - fixed: incoming data not properly decoded from utf8
  - fixed: Can't call method "getSku" on unblessed reference
  - fixed: PurgeOldInboxMessages just didn't work
+ - fixed: Unable to delete data form entries
 
 7.5.22
  - fixed: Layout template now gets prepared correctly
diff --git a/lib/WebGUI/Asset/Wobject/DataForm.pm b/lib/WebGUI/Asset/Wobject/DataForm.pm
index 602126958..de00dbdb5 100644
--- a/lib/WebGUI/Asset/Wobject/DataForm.pm
+++ b/lib/WebGUI/Asset/Wobject/DataForm.pm
@@ -448,8 +448,8 @@ sub deleteAttachedFiles {
     my $fieldConfig = $self->getFieldConfig;
 
     if ($entryId) {
-        my $entry = $self->session->db->buildArrayRef("select entryData from DataForm_entry where assetId=? and DataForm_entryId=?", [$self->getId, $entryId]);
-        $entryData = JSON::from_json($entry->{entryData});
+        my ($entry) = $self->session->db->buildArray("select entryData from DataForm_entry where assetId=? and DataForm_entryId=?", [$self->getId, $entryId]);
+        $entryData = JSON::from_json($entry);
     }
     if ($entryData) {
         for my $field ( @$fields ) {