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

fixes for data form list fields

Browse source
This commit is contained in:
Graham Knop 2008-06-12 19:40:19 +00:00
parent 0e299cc18b
commit dbe99c3295
2 changed files with 5 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

2
docs/upgrades/upgrade_7.5.10-7.5.11.pl
View file

@ -129,7 +129,7 @@ sub convertDataForm {
name => $fieldData->{name}, name => $fieldData->{name},
status => $fieldData->{status}, status => $fieldData->{status},
type => "\u$fieldData->{type}", type => "\u$fieldData->{type}",
possibleValues => $fieldData->{possibleValues}, options => $fieldData->{possibleValues},
defaultValue => $fieldData->{defaultValue}, defaultValue => $fieldData->{defaultValue},
width => $fieldData->{width}, width => $fieldData->{width},
subtext => $fieldData->{subtext}, subtext => $fieldData->{subtext},

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

@ -55,7 +55,7 @@ sub _createForm {
my $data = shift; my $data = shift;
my $value = shift; my $value = shift;
# copy select entries # copy select entries
my %param = map { $_ => $data->{$_} } qw(name height width extras vertical defaultValue); my %param = map { $_ => $data->{$_} } qw(name height width extras vertical defaultValue options);
$param{value} = $value; $param{value} = $value;
$param{size} = $param{width}; $param{size} = $param{width};
@ -64,6 +64,9 @@ sub _createForm {
if ($data->{type} eq "checkbox") { if ($data->{type} eq "checkbox") {
$param{defaultValue} = ($param{defaultValue} =~ /checked/i); $param{defaultValue} = ($param{defaultValue} =~ /checked/i);
} }
elsif ( isIn($data->{type}, qw(selectList selectBox checkList radioList)) ) {
delete $param{size};
}
my $control = eval { my $control = eval {
WebGUI::Pluggable::instanciate("WebGUI::Form::\u$data->{type}", "new", [ $self->session, \%param ]); WebGUI::Pluggable::instanciate("WebGUI::Form::\u$data->{type}", "new", [ $self->session, \%param ]);
}; };