oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix a hash lookup into a C::IO object in the DataForm, which isn't a hash.

Browse source
This commit is contained in:
Colin Kuskie 2009-02-18 23:58:05 +00:00
parent 8b7db9ff38
commit 021215c9bd
2 changed files with 4 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

1
docs/changelog/7.x.x.txt
View file

@ -1,4 +1,5 @@
7.6.13 7.6.13
- fixed #9760: DataForm not working in demo.plainblack.com
7.6.12 7.6.12
- fixed: During postback on a recurring transaction, the routine could error out instead of catching an error. - fixed: During postback on a recurring transaction, the routine could error out instead of catching an error.

6
lib/WebGUI/Asset/Wobject/DataForm.pm
View file

@ -512,7 +512,7 @@ sub getAttachedFiles {
my $fieldConfig = $self->getFieldConfig; my $fieldConfig = $self->getFieldConfig;
my @paths; my @paths;
for my $field ( values %{$fieldConfig} ) { 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')) { if ($form->can('getStorageLocation')) {
my $storage = $form->getStorageLocation; my $storage = $form->getStorageLocation;
if ($storage) { if ($storage) {
@ -1521,8 +1521,8 @@ sub www_process {
unless $self->canView; unless $self->canView;
my $session = $self->session; my $session = $self->session;
my $i18n = WebGUI::International->new($session,"Asset_DataForm"); my $i18n = WebGUI::International->new($session,"Asset_DataForm");
my $entryId = $self->session->form->process('entryId'); my $entryId = $session->form->process('entryId');
my $entry = $self->entryClass->new($self, ( $entryId ? $entryId : () ) ); my $entry = $self->entryClass->new($self, ( $entryId ? $entryId : () ) );
my $var = $self->getTemplateVars; my $var = $self->getTemplateVars;