From a01f5dce37b450b951bcd53cfbff21b6baafe990 Mon Sep 17 00:00:00 2001
From: Graham Knop <graham@plainblack.com>
Date: Thu, 7 Aug 2008 22:55:26 +0000
Subject: [PATCH] don't dual check for form parameters

---
 lib/WebGUI/Session/Form.pm | 9 ++-------
 1 file changed, 2 insertions(+), 7 deletions(-)

diff --git a/lib/WebGUI/Session/Form.pm b/lib/WebGUI/Session/Form.pm
index f8b78ac91..4e357a798 100644
--- a/lib/WebGUI/Session/Form.pm
+++ b/lib/WebGUI/Session/Form.pm
@@ -105,22 +105,17 @@ sub param {
 	my $field = shift;
 	if ($field) {
 		if ($self->session->request) {
-			my @data = $self->session->request->body($field);
-			return wantarray ? @data : $data[0] if (scalar(@data));
-			@data = $self->session->request->param($field);
+			my @data = $self->session->request->param($field);
 			return wantarray ? @data : $data[0];
 		} else {
 			return undef;
 		}
 	} else {
 		if ($self->session->request) {
-			my %params = ();
+			my %params;
 			foreach ($self->session->request->param) {
 				$params{$_} = 1;
 			}
-			foreach ($self->session->request->body) {
-				$params{$_} = 1; 
-			}
 			return keys %params;
 		} else {
 			return undef;