From 4a88e39c2127c816aca6661f0d32b4dfd275969d Mon Sep 17 00:00:00 2001
From: Graham Knop <graham@plainblack.com>
Date: Wed, 3 Dec 2008 00:32:36 +0000
Subject: [PATCH] fixed: filtering of rich text areas very slow for large
 content

---
 docs/changelog/7.x.x.txt | 1 +
 lib/WebGUI/HTML.pm       | 2 +-
 2 files changed, 2 insertions(+), 1 deletion(-)

diff --git a/docs/changelog/7.x.x.txt b/docs/changelog/7.x.x.txt
index c19e91735..74ea719e7 100644
--- a/docs/changelog/7.x.x.txt
+++ b/docs/changelog/7.x.x.txt
@@ -24,6 +24,7 @@
  - fixed Calendar copy behavior.  In the Asset toolbar, Copy Just this Asset
    was broken.  This has been fixed.  As a side effect, in the Asset Manager
    the default behavior is to copy ONLY the Calendar, and none of the events.
+ - fixed: filtering of rich text areas very slow for large content
 
 7.6.4
  - Survey now will show progress and time limit.
diff --git a/lib/WebGUI/HTML.pm b/lib/WebGUI/HTML.pm
index 5093392ae..67e4f8068 100644
--- a/lib/WebGUI/HTML.pm
+++ b/lib/WebGUI/HTML.pm
@@ -64,7 +64,7 @@ sub cleanSegment {
     my $html = shift;
     my $preserveStyleScript = shift;
     my $headers = "";
-    if ($html =~ s{(.*)<body\b.*?>}{}is && $preserveStyleScript) {
+    if ($html =~ s{^(.*)<body\b[^>]*>}{}is && $preserveStyleScript) {
         my $head = $1;
         # extract every link tag
         while ( $head =~ m{(<link\b[^>]+>)}isg ) {