Patch HTMLForm to make dynamically generated forms sticky.

This commit is contained in:
Colin Kuskie 2009-02-09 15:51:08 -08:00 committed by Patrick Donelan
parent fa9a7ca87f
commit 338c828a88

View file

@ -155,6 +155,7 @@ a C<get> method to provide that information.
sub dynamicForm {
my ($self, $formDefinition, $fieldList, $parent) = @_;
my $form = $self->session->form;
foreach my $definition (reverse @{$formDefinition}) {
my $properties = $definition->{$fieldList};
foreach my $fieldname (keys %{$properties}) {
@ -165,7 +166,7 @@ sub dynamicForm {
$params{$key} = $formDefinition->[0]{name};
}
}
$params{value} = $parent->get($fieldname);
$params{value} = $form->get($fieldname) || $parent->get($fieldname);
$params{name} = $fieldname;
$self->dynamicField(%params);
}