From d786e7dc369e33a2e85c0b745542a2a522bbd49c Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Thu, 24 Apr 2008 23:12:34 +0000
Subject: [PATCH] Fix a typo in the newline/whitespace removal code

---
 lib/WebGUI/Form/Text.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/WebGUI/Form/Text.pm b/lib/WebGUI/Form/Text.pm
index fd3d89292..bc61c328a 100644
--- a/lib/WebGUI/Form/Text.pm
+++ b/lib/WebGUI/Form/Text.pm
@@ -99,7 +99,7 @@ An optional value to process, instead of POST input.
 sub getValue {
 	my $self = shift;
     my $value = $self->SUPER::getValue(@_);
-    $value =~ tr/\n\n//d;
+    $value =~ tr/\r\n//d;
     return $value;
 }