From f570ca5b5ee1e88fcafced0d154beab7e4857dcd Mon Sep 17 00:00:00 2001
From: Graham Knop <graham@plainblack.com>
Date: Mon, 15 Oct 2007 17:27:18 +0000
Subject: [PATCH] Fix delete item link in data form header

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

diff --git a/docs/changelog/7.x.x.txt b/docs/changelog/7.x.x.txt
index 2afb26432..f3ab62de3 100644
--- a/docs/changelog/7.x.x.txt
+++ b/docs/changelog/7.x.x.txt
@@ -1,7 +1,7 @@
 7.5.0
  - Added link to return to inbox from message in inbox message template  (Diona Kidd, Knowmad Technologies)
  - fix: Cannot delete private message (Diona Kidd, Knowmad Technologies)
-
+ - fix: Delete this entry link in data form header broken
 
 7.4.10
  - fix: Graphs aren't sized properly using GraphicsMagick
diff --git a/lib/WebGUI/Asset/Wobject/DataForm.pm b/lib/WebGUI/Asset/Wobject/DataForm.pm
index 491a48827..4e05857cc 100644
--- a/lib/WebGUI/Asset/Wobject/DataForm.pm
+++ b/lib/WebGUI/Asset/Wobject/DataForm.pm
@@ -503,6 +503,8 @@ sub getRecordTemplateVars {
 		$where .= " and b.DataForm_entryId=".$self->session->db->quote($var->{entryId});
 		$join = "left join DataForm_entryData as b on a.DataForm_fieldId=b.DataForm_fieldId";
 		$select .= ", b.value";
+	    $var->{"delete.url"} = $self->getUrl('func=deleteEntry;entryId='.$var->{entryId});
+	    $var->{"delete.label"} = $i18n->get(90);
 	}
 	my %data;
 	tie %data, 'Tie::CPHash';
@@ -628,8 +630,6 @@ sub getTemplateVars {
 	$var->{"entryList.label"} = $i18n->get(86);
 	$var->{"export.tab.url"} = $self->getUrl('func=exportTab');
 	$var->{"export.tab.label"} = $i18n->get(84);
-	$var->{"delete.url"} = $self->getUrl('func=deleteEntry;entryId='.$var->{entryId});
-	$var->{"delete.label"} = $i18n->get(90);
 	$var->{"addField.url"} = $self->getUrl('func=editField');
 	$var->{"addField.label"} = $i18n->get(76);
 	$var->{"deleteAllEntries.url"} = $self->getUrl("func=deleteAllEntriesConfirm");