bugfix, missing labels

This commit is contained in:
Colin Kuskie 2005-12-04 15:56:59 +00:00
parent 7dc63c1aa0
commit ea8415f902
7 changed files with 41 additions and 11 deletions

View file

@ -111,9 +111,10 @@ sub new {
}
my $formObj = $cmd->new($param);
##Fix up methods for List type forms and restore the size to all Forms *except*
##List type forms
##List type forms. Historically, dynamically created forms have always
##used the default size.
if ($formObj->isa('WebGUI::Form::List')) {
$formObj->correctValues($param->{value});
$formObj->correctValues();
$formObj->correctOptions($param->{possibleValues});
}
elsif ($size) {