From 44ac8a42b91d17153ecd78b5ea0f710894a22bf2 Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Thu, 19 Feb 2009 06:10:52 +0000
Subject: [PATCH] Add a missing template variable, which prevented users from
 deleting a DataForm entry when viewing that entry.

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

diff --git a/docs/changelog/7.x.x.txt b/docs/changelog/7.x.x.txt
index 67f6a4ebf..2ff23bea3 100644
--- a/docs/changelog/7.x.x.txt
+++ b/docs/changelog/7.x.x.txt
@@ -1,5 +1,6 @@
 7.6.13
  - fixed #9760: DataForm not working in demo.plainblack.com
+ - fixed #9759: Delete Entry Button missing in Data Form
 
 7.6.12
  - fixed: During postback on a recurring transaction, the routine could error out instead of catching an error.
diff --git a/lib/WebGUI/Asset/Wobject/DataForm.pm b/lib/WebGUI/Asset/Wobject/DataForm.pm
index e50961daf..5ef3d232a 100644
--- a/lib/WebGUI/Asset/Wobject/DataForm.pm
+++ b/lib/WebGUI/Asset/Wobject/DataForm.pm
@@ -648,6 +648,7 @@ sub getRecordTemplateVars {
         $var->{'edit.URL'       } = $self->getFormUrl('entryId=' . $entryId);
         $var->{'delete.url'     } = $self->getUrl('func=deleteEntry;entryId=' . $entryId);
         $var->{'delete.label'   } = $i18n->get(90);
+        $var->{'entryId'        } = $entryId;
     }
     my $func = $session->form->process('func');
     my $ignoreForm = $func eq 'editSave' || $func eq 'editFieldSave';