Fixing HTML filter bug where mac carriage returns causing problems.

This commit is contained in:
JT Smith 2002-06-18 03:55:46 +00:00
parent 062cd3c132
commit 1fe905fee4

View file

@ -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;