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

sub bug fixes, and the new file form control

Browse source
This commit is contained in:
JT Smith 2005-07-28 19:26:07 +00:00
parent e184f2c185
commit 3733b39fa5
8 changed files with 74 additions and 158 deletions
Download patch file Download diff file Expand all files Collapse all files

15
lib/WebGUI/Form/Control.pm
View file

@ -306,9 +306,22 @@ sub new {
my @reversedDefinitions = reverse @{$class->definition};
foreach my $definition (@reversedDefinitions) {
foreach my $fieldName (keys %{$definition}) {
$params{$fieldName} = $raw{$fieldName} || $raw{"-".$fieldName} || $definition->{$fieldName}{defaultValue};
my $value = $raw{$fieldName};
# if we have no value, try the tagged name
unless (defined $value) {
$value = $raw{"-".$fieldName};
}
# if we still have no value try the default value for the field
unless (defined $value) {
$value = $definition->{$fieldName}{defaultValue};
}
# and finally, if we have a value, let's set it
if (defined $value) {
$params{$fieldName} = $value;
}
}
}
# if the value field is undefined, lets use the defaultValue field instead
unless (exists $params{value}) {
$params{value} = $params{defaultValue};
}