From e69d1a7c53f9552283f2a90fa8edea2cd69ffc72 Mon Sep 17 00:00:00 2001
From: JT Smith <jt@plainblack.com>
Date: Sun, 23 Jun 2002 21:44:34 +0000
Subject: [PATCH] Removed extra carriage returns produced by filtering process.

---
 lib/WebGUI/HTML.pm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/lib/WebGUI/HTML.pm b/lib/WebGUI/HTML.pm
index 6b1cb29a2..69d0cbd98 100644
--- a/lib/WebGUI/HTML.pm
+++ b/lib/WebGUI/HTML.pm
@@ -59,7 +59,9 @@ use WebGUI::Session;
 sub cleanSegment {
 	my ($style, $value);
 	$value = $_[0];
-	$value =~ s/\r/\n/g;
+	if ($value =~ s/\r/\n/g) {
+		$value =~ s/\n\n/\n/g
+	}
 	$value =~ m/(\<style.*?\/style\>)/ixsg;
 	$style = $1;
 	$value =~ s/\A.*?\<body.*?\>(.*?)/$style$1/ixsg;