Fixing HTML filter bug where mac carriage returns causing problems.
This commit is contained in:
parent
062cd3c132
commit
1fe905fee4
1 changed files with 1 additions and 0 deletions
|
|
@ -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;
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue