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");