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

Added proxying by alternate criteria to WobjectProxy

Browse source
This commit is contained in:
Len Kranendonk 2004-07-22 18:51:07 +00:00
parent d7171e5d49
commit 02d24c4e4c
13 changed files with 515 additions and 31 deletions
Download patch file Download diff file Expand all files Collapse all files

26
lib/WebGUI/HTMLForm.pm
View file

@ -726,33 +726,9 @@ sub dynamicField {
$param{$1} = $param{$key};
delete $param{$key};
}
# Set options for fields that use a list.
if (isIn($fieldType,qw(selectList checkList radioList))) {
delete $param{size};
my %options;
tie %options, 'Tie::IxHash';
foreach (split(/\n/, $param{possibleValues})) {
s/\s+$//; # remove trailing spaces
$options{$_} = $_;
}
$param{options} = \%options;
}
# Convert value to list for selectList / checkList
if (isIn($fieldType,qw(selectList checkList)) && ref $param{value} ne "ARRAY") {
my @defaultValues;
foreach (split(/\n/, $param{value})) {
s/\s+$//; # remove trailing spaces
push(@defaultValues, $_);
}
$param{value} = \@defaultValues;
}
my $cmd = "WebGUI::Form::".$fieldType;
my $output;
if (_uiLevelChecksOut($param{uiLevel})) {
no strict "refs";
$output = &$cmd(\%param);
$output = WebGUI::Form::dynamicField($fieldType, \%param);
$output .= _subtext($param{subtext});
$output = $self->_tableFormRow($param{label},$output);
} else {