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

7
lib/WebGUI/FormProcessor.pm
View file

@ -55,7 +55,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 $fieldName = shift;
my $cmd = "use WebGUI::Form::".$name;
eval ($cmd);
@ -93,16 +93,15 @@ sub process {
my ($name, $type, $default) = @_;
my $value;
$type = "text" if ($type eq "");
$type = ucfirst($type);
$type = "Text" if ($type eq "");
$value = &$type($name);
unless (defined $value) {
return $default;
}
if ($value =~ /^[\s]+$/) {
return undef;
}
return $value;
}