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

fixed some data entry bugs.

Browse source
This commit is contained in:
JT Smith 2003-05-25 17:36:20 +00:00
parent 3d7d8dc0a7
commit 3ce64fc0d5
5 changed files with 27 additions and 23 deletions
Download patch file Download diff file Expand all files Collapse all files

12
lib/WebGUI/Wobject/DataForm.pm
View file

@ -44,19 +44,19 @@ sub _createField {
if ($data->{type} eq "checkbox") {
$param{value} = ($data->{defaultValue} =~ /checked/i) ? 1 : "";
}
if (isIn($data->{type},qw(selectList checkboxList))) {
if (isIn($data->{type},qw(selectList checkList))) {
my @defaultValues;
if ($session{form}{$param{name}}) {
@defaultValues = $session{cgi}->param($param{name});
} else {
foreach (split(/\n/, $data->{defaultValue})) {
foreach (split(/\n/, $data->{value})) {
s/\s+$//; # remove trailing spaces
push(@defaultValues, $_);
}
}
$param{value} = \@defaultValues;
}
if (isIn($data->{type},qw(selectList checkboxList radioList))) {
if (isIn($data->{type},qw(selectList checkList radioList))) {
delete $param{size};
my %options;
tie %options, 'Tie::IxHash';
@ -431,12 +431,14 @@ sub www_editField {
$f->textarea(
-name=>"possibleValues",
-label=>WebGUI::International::get(24,$_[0]->get("namespace")),
-value=>$field{possibleValues}
-value=>$field{possibleValues},
-subtext=>'<br>'.WebGUI::International::get(85,$_[0]->get("namespace"))
);
$f->textarea(
-name=>"defaultValue",
-label=>WebGUI::International::get(25,$_[0]->get("namespace")),
-value=>$field{defaultValue}
-value=>$field{defaultValue},
-subtext=>'<br>'.WebGUI::International::get(85,$_[0]->get("namespace"))
);
if ($session{form}{fid} eq "new") {
$f->whatNext(