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

renamed the form fields to upper case for proper perl style

Browse source
This commit is contained in:
JT Smith 2005-08-23 15:58:55 +00:00
parent 0f9c9badd9
commit 3e587762be
42 changed files with 4753 additions and 16 deletions
Download patch file Download diff file Expand all files Collapse all files

9
lib/WebGUI/Form.pm
View file

@ -64,7 +64,7 @@ Dynamically creates functions on the fly for all the different form control type
sub AUTOLOAD {
our $AUTOLOAD;
my $name = (split /::/, $AUTOLOAD)[-1];
my $name = ucfirst((split /::/, $AUTOLOAD)[-1]);
my @params = @_;
my $cmd = "use WebGUI::Form::".$name;
eval ($cmd);
@ -124,11 +124,11 @@ The field options. See the documentation for the desired field for more informat
=cut
sub dynamicField {
my $fieldType = shift;
my $fieldType = ucfirst(shift);
my $param = shift;
# Set options for fields that use a list.
if (isIn($fieldType,qw(selectList checkList radioList))) {
if (isIn($fieldType,qw(SelectList CheckList RadioList))) {
delete $param->{size};
my %options;
tie %options, 'Tie::IxHash';
@ -142,7 +142,7 @@ sub dynamicField {
$param->{options} = \%options;
}
# Convert value to list for selectList / checkList
if (isIn($fieldType,qw(selectList checkList)) && ref $param->{value} ne "ARRAY") {
if (isIn($fieldType,qw(SelectList CheckList)) && ref $param->{value} ne "ARRAY") {
my @defaultValues;
foreach (split(/\n/, $param->{value})) {
s/\s+$//; # remove trailing spaces
@ -154,7 +154,6 @@ sub dynamicField {
# Return the appropriate field.
no strict 'refs';
return &$fieldType($param);
}