From 83e7163f315504aadbe186b894b031992c51b0ce Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Wed, 8 Apr 2009 03:40:41 +0000
Subject: [PATCH] Missing POD for Textarea, SelectRichEditor

---
 lib/WebGUI/Form/SelectRichEditor.pm | 2 +-
 lib/WebGUI/Form/Textarea.pm         | 8 ++++++++
 2 files changed, 9 insertions(+), 1 deletion(-)

diff --git a/lib/WebGUI/Form/SelectRichEditor.pm b/lib/WebGUI/Form/SelectRichEditor.pm
index a6f8d1ab9..cd6f73c9b 100644
--- a/lib/WebGUI/Form/SelectRichEditor.pm
+++ b/lib/WebGUI/Form/SelectRichEditor.pm
@@ -116,7 +116,7 @@ sub isDynamicCompatible {
 
 #----------------------------------------------------------------------------
 
-=head2 new
+=head2 getOptions
 
 Create a new WebGUI::Form::SelectRichEditor object and populate it with all 
 the available Rich Text Editor assets.
diff --git a/lib/WebGUI/Form/Textarea.pm b/lib/WebGUI/Form/Textarea.pm
index a8cece02e..f3de5d977 100644
--- a/lib/WebGUI/Form/Textarea.pm
+++ b/lib/WebGUI/Form/Textarea.pm
@@ -195,6 +195,14 @@ sub toHtml {
 	return $out;
 }
 
+#-------------------------------------------------------------------
+
+=head2 getValueAsHtml
+
+Returns the form value as text, encoding HTML entities.
+
+=cut
+
 sub getValueAsHtml {
     my $self = shift;
     my $value = $self->SUPER::getValueAsHtml(@_);