From 338c828a884bdae711906d84501df56c44fc0f9d Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Mon, 9 Feb 2009 15:51:08 -0800
Subject: [PATCH] Patch HTMLForm to make dynamically generated forms sticky.

---
 lib/WebGUI/HTMLForm.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/lib/WebGUI/HTMLForm.pm b/lib/WebGUI/HTMLForm.pm
index 683f21e83..47decd4eb 100644
--- a/lib/WebGUI/HTMLForm.pm
+++ b/lib/WebGUI/HTMLForm.pm
@@ -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);
         }