From 1fe905fee453832fcca75ae1ef9a22db1c06afd7 Mon Sep 17 00:00:00 2001
From: JT Smith <jt@plainblack.com>
Date: Tue, 18 Jun 2002 03:55:46 +0000
Subject: [PATCH] Fixing HTML filter bug where mac carriage returns causing
 problems.

---
 lib/WebGUI/HTML.pm | 1 +
 1 file changed, 1 insertion(+)

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