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

MailForm possible values now maintains its order.

Browse source
This commit is contained in:
JT Smith 2002-08-01 01:11:59 +00:00
parent 2811abaddf
commit 5c903b5c39
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
lib/WebGUI/Wobject/MailForm.pm
View file

@ -456,11 +456,12 @@ sub _createField {
/^select$/ && do {
# size, multiple, extras, subtext
my %selectOptions;
tie %selectOptions, 'Tie::IxHash';
# add an empty option if no default value is provided
foreach (split(/\n/, $data->{possibleValues})) {
$selectOptions{$_} = $_[0]->processMacros($_);
}
$f->select($name, \%selectOptions, $data->{name}, [ $data->{defaultValue} ], "", "", "", "");
$f->select($name, \%selectOptions, $data->{name}, [$data->{defaultValue}], "", "", "", "");
last SWITCH;
};
}