oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Removed extra carriage returns produced by filtering process.

Browse source
This commit is contained in:
JT Smith 2002-06-23 21:44:34 +00:00
parent b76419abe6
commit e69d1a7c53
1 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lib/WebGUI/HTML.pm
View file

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