From c64d41e5f613f10b1e3ce4a6f9c560f320df9fbc Mon Sep 17 00:00:00 2001
From: Matthew Wilson <matt@plainblack.com>
Date: Mon, 17 Apr 2006 01:47:31 +0000
Subject: [PATCH] this should fix it.

---
 lib/WebGUI/Session/Form.pm | 1 +
 1 file changed, 1 insertion(+)

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 ($@) {