From cd68b13f618ca7d0af39cbfabcfd5c2ddac5cf99 Mon Sep 17 00:00:00 2001
From: Graham Knop <haarg@haarg.org>
Date: Sun, 13 Jun 2010 06:16:49 -0500
Subject: [PATCH] use better api for form variables

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

diff --git a/lib/WebGUI/Session/Form.pm b/lib/WebGUI/Session/Form.pm
index d2e79038b..69f1b71ff 100644
--- a/lib/WebGUI/Session/Form.pm
+++ b/lib/WebGUI/Session/Form.pm
@@ -122,15 +122,14 @@ sub param {
     return undef unless $self->session->request;
 	my $field = shift;
 	if ($field) {
-        my @data = $self->session->request->param($field);
+        my @data = $self->session->request->parameters->get_all($field);
         foreach my $value (@data) {
             $value = Encode::decode_utf8($value);
         }
         return wantarray ? @data : $data[0];
 	}
     else {
-        my $paramRef = $self->session->request->param;
-        return keys %{ $paramRef };
+        return $self->session->request->parameters->keys;
 	}
 }