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

fixed 709772

Browse source
This commit is contained in:
JT Smith 2003-03-27 03:06:05 +00:00
parent 805af07e3e
commit b03ddeee47
3 changed files with 9 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -534,7 +534,7 @@ sub _createField {
last SWITCH;
};
/^radioList$/ && do {
my (%selectOptions, @defaultValues);
my (%selectOptions, $defaultValue);
my $vertical = 1; # TODO: Make this configurable
$name = "field_".$data->{sequenceNumber} if ($name eq ""); # Empty fieldname not allowed
tie %selectOptions, 'Tie::IxHash';
@ -543,19 +543,15 @@ sub _createField {
$selectOptions{$_} = $_;
}
if ($session{form}{$name}) {
@defaultValues = $session{cgi}->param($name);
$defaultValue = $session{form}{$name};
} else {
# put default values in array
foreach (split(/\n/, $data->{defaultValue})) {
s/\s+$//; # remove trailing spaces
push(@defaultValues, $_);
}
$defaultValue = $data->{defaultValue};
}
$f->radioList(
-name=>$name,
-options=>\%selectOptions,
-label=>$data->{name},
-value=>\@defaultValues,
-value=>$defaultValue,
-subtext=>$data->{subtext},
-vertical=>$vertical
);
@ -633,7 +629,7 @@ sub www_send {
$value = ($value == 1) ? "yes" : "no";
} elsif ($data{type} eq "checkbox") {
$value = ($value) ? "checked" : "not checked";
} elsif ($data{type} eq "checkList" || $data{type} eq "radioList") {
} elsif ($data{type} eq "checkList") {
$data{name} = $urlizedName = "field_".$data{sequenceNumber} if ($urlizedName eq "");
my @values = $session{cgi}->param($urlizedName);
$value = join(", ",@values);