diff --git a/lib/WebGUI/Session/Form.pm b/lib/WebGUI/Session/Form.pm index 594fc77aa..fcd7c5da7 100644 --- a/lib/WebGUI/Session/Form.pm +++ b/lib/WebGUI/Session/Form.pm @@ -59,6 +59,7 @@ sub AUTOLOAD { my $self = shift; my $name = ucfirst((split /::/, $AUTOLOAD)[-1]); my $params = shift; + $params = {name=>$params} if ref ($params) ne "HASH"; my $cmd = "use WebGUI::Form::".$name; eval ($cmd); if ($@) {