From a99dea81294bd23bf04c91bd6c7a1534384949af Mon Sep 17 00:00:00 2001
From: JT Smith <jt@plainblack.com>
Date: Mon, 23 Jan 2006 05:30:54 +0000
Subject: [PATCH] fixing array bug

---
 lib/WebGUI/Session/Form.pm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/lib/WebGUI/Session/Form.pm b/lib/WebGUI/Session/Form.pm
index ee46a4a64..65064e2e4 100644
--- a/lib/WebGUI/Session/Form.pm
+++ b/lib/WebGUI/Session/Form.pm
@@ -133,7 +133,10 @@ sub param {
 	my $field = shift;
 	if ($field) {
 		if ($self->session->request) {
-			return $self->session->request->body($field) || $self->session->request->param($field);
+			my @data = $self->session->request->body($field);
+			return wantarray ? @data : $data[0] if (scalar(@data));
+			@data = $self->session->request->param($field);
+			return wantarray ? @data : $data[0];
 		} else {
 			return undef;
 		}