whoops; fixed in wrong place.

This commit is contained in:
Matthew Wilson 2006-04-17 01:46:01 +00:00
parent dc414e13e5
commit 84fb7cad05

View file

@ -58,7 +58,7 @@ sub AUTOLOAD {
our $AUTOLOAD; our $AUTOLOAD;
my $self = shift; my $self = shift;
my $name = ucfirst((split /::/, $AUTOLOAD)[-1]); my $name = ucfirst((split /::/, $AUTOLOAD)[-1]);
my $varName = shift; my $params = shift;
my $cmd = "use WebGUI::Form::".$name; my $cmd = "use WebGUI::Form::".$name;
eval ($cmd); eval ($cmd);
if ($@) { if ($@) {
@ -66,7 +66,7 @@ sub AUTOLOAD {
return undef; return undef;
} }
my $class = "WebGUI::Form::".$name; my $class = "WebGUI::Form::".$name;
return $class->new($self->session, {name=>$varName})->getValueFromPost; return $class->new($self->session, $params)->getValueFromPost;
} }
#------------------------------------------------------------------- #-------------------------------------------------------------------