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

fixing bugs

Browse source
This commit is contained in:
JT Smith 2005-12-07 17:43:01 +00:00
parent a20aa5f587
commit bfffdae8a9
4 changed files with 12 additions and 31 deletions
Download patch file Download diff file Expand all files Collapse all files

12
lib/WebGUI/ProfileField.pm
View file

@ -400,7 +400,7 @@ A scalar indicating the type of field this will be when generated as a form elem
A scalar containing a hash reference declaration of possible values. Only used for list type fields.
=head4 defaultValues
=head4 defaultValue
A scalar containing an array reference or scalar declaration of defaultly selected value(s).
@ -415,12 +415,12 @@ sub set {
$properties->{required} = 0 unless ($properties->{required} == 1);
$properties->{label} = 'Undefined' if ($properties->{label} =~ /^[\"\']*$/);
$properties->{fieldType} = 'text' unless ($properties->{fieldType});
if ($properties->{defaultValues} && $properties->{fieldType}=~/List$/) {
unless ($properties->{defaultValues} =~ /^\[/) {
$properties->{defaultValues} = "[".$properties->{defaultValues};
if ($properties->{defaultValue} && $properties->{fieldType}=~/List$/) {
unless ($properties->{defaultValue} =~ /^\[/) {
$properties->{defaultValue} = "[".$properties->{defaultValue};
}
unless ($properties->{defaultValues} =~ /\]$/) {
$properties->{defaultValues} .= "]";
unless ($properties->{defaultValue} =~ /\]$/) {
$properties->{defaultValue} .= "]";
}
}
$properties->{fieldName} = $self->getId;