diff --git a/docs/changelog/7.x.x.txt b/docs/changelog/7.x.x.txt index 5955eaa5c..67f6a4ebf 100644 --- a/docs/changelog/7.x.x.txt +++ b/docs/changelog/7.x.x.txt @@ -1,4 +1,5 @@ 7.6.13 + - fixed #9760: DataForm not working in demo.plainblack.com 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 2b4810d59..e50961daf 100644 --- a/lib/WebGUI/Asset/Wobject/DataForm.pm +++ b/lib/WebGUI/Asset/Wobject/DataForm.pm @@ -512,7 +512,7 @@ sub getAttachedFiles { my $fieldConfig = $self->getFieldConfig; my @paths; for my $field ( values %{$fieldConfig} ) { - my $form = $self->_createForm($field, $entryData->{$field->{name}}); + my $form = $self->_createForm($field, $entryData->field($field->{name})); if ($form->can('getStorageLocation')) { my $storage = $form->getStorageLocation; if ($storage) { @@ -1521,8 +1521,8 @@ sub www_process { unless $self->canView; my $session = $self->session; my $i18n = WebGUI::International->new($session,"Asset_DataForm"); - my $entryId = $self->session->form->process('entryId'); - my $entry = $self->entryClass->new($self, ( $entryId ? $entryId : () ) ); + my $entryId = $session->form->process('entryId'); + my $entry = $self->entryClass->new($self, ( $entryId ? $entryId : () ) ); my $var = $self->getTemplateVars;