From 68b05cff5cdf5bb56c917566296c69c628dcfae6 Mon Sep 17 00:00:00 2001
From: JT Smith <jt@plainblack.com>
Date: Mon, 23 Jan 2006 05:23:21 +0000
Subject: [PATCH] added param() method to $session->form

---
 lib/WebGUI/Asset.pm        |  4 ++--
 lib/WebGUI/Session/Form.pm | 39 +++++++++++++++++++++++++++++++++++++-
 2 files changed, 40 insertions(+), 3 deletions(-)

diff --git a/lib/WebGUI/Asset.pm b/lib/WebGUI/Asset.pm
index 438b6f0f0..bdb0229cf 100644
--- a/lib/WebGUI/Asset.pm
+++ b/lib/WebGUI/Asset.pm
@@ -1664,14 +1664,14 @@ sub www_manageAssets {
         }
 	if ($hasClips) {
 		$output .= '<div style="width: 28%; float: left; padding-right: 30px; font-size: 14px;"><fieldset><legend>'.$i18n->get(1082).'</legend>'
-			.WebGUI::Form::formHeader($self->session,)
+			.WebGUI::Form::formHeader($self->session)
 			.WebGUI::Form::hidden($self->session,{name=>"func",value=>"pasteList"})
 			.WebGUI::Form::checkbox($self->session,{extras=>'onchange="toggleClipboardSelectAll(this.form);"'})
 			.' '.$i18n->get("select all").'<br />'
 			.WebGUI::Form::checkList($self->session,{name=>"assetId",vertical=>1,options=>\%options})
 			.'<br />'
 			.WebGUI::Form::submit($self->session,{value=>"Paste"})
-			.WebGUI::Form::formFooter($self->session,)
+			.WebGUI::Form::formFooter($self->session)
 			.' </fieldset></div> '
 			.'<script type="text/javascript">
 			//<![CDATA[
diff --git a/lib/WebGUI/Session/Form.pm b/lib/WebGUI/Session/Form.pm
index fce26b4a0..ee46a4a64 100644
--- a/lib/WebGUI/Session/Form.pm
+++ b/lib/WebGUI/Session/Form.pm
@@ -116,11 +116,48 @@ sub new {
 }
 
 
+#-------------------------------------------------------------------
+
+=head2 param ( field )
+
+Retrieves a form field post from the HTTP request.
+
+=head3 field
+
+The name of the field to retrieve.
+
+=cut
+
+sub param {
+	my $self = shift;
+	my $field = shift;
+	if ($field) {
+		if ($self->session->request) {
+			return $self->session->request->body($field) || $self->session->request->param($field);
+		} else {
+			return undef;
+		}
+	} else {
+		if ($self->session->request) {
+			my @params = ();
+			foreach ($self->session->request->param) {
+				push(@params, $_);
+			}
+			foreach ($self->session->request->body) {
+				push(@params, $_);
+			}
+			return @params;
+		} else {
+			return undef;
+		}
+	}
+}
+
 #-------------------------------------------------------------------
 
 =head2 paramsHashRef (  )
 
-Gets a hash ref of all the params passed in, and their values.
+Gets a hash ref of all the params passed in to this class, and their values. This should not be confused with the param() method.
 
 =cut