From fc1e356cfe692c4fa96c41ff9b2e80e3450a1ef3 Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Tue, 15 Jun 2010 09:36:11 -0700
Subject: [PATCH] Fix a bug in the HTMLArea, introduced with the
 lineageIterator changes.  Fixes bug #11629.

---
 docs/changelog/7.x.x.txt    | 1 +
 lib/WebGUI/Form/HTMLArea.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 8f2644462..e7a1ea36b 100644
--- a/docs/changelog/7.x.x.txt
+++ b/docs/changelog/7.x.x.txt
@@ -16,6 +16,7 @@
  - fixed #11616: No access to /root
  - fixed #11619: Trash Expired Events not trashing events
  - fixed #11623: Navigation CSS-id
+ - fixed #11629: WebGUI Collateral Manager = Error
 
 7.9.6
  - new checkbox in the asset manager for clearing the package flag on import
diff --git a/lib/WebGUI/Form/HTMLArea.pm b/lib/WebGUI/Form/HTMLArea.pm
index a07388e00..5a5d994c7 100644
--- a/lib/WebGUI/Form/HTMLArea.pm
+++ b/lib/WebGUI/Form/HTMLArea.pm
@@ -297,7 +297,7 @@ JS
     $output .= '<div class="crumbTrail">'.join(" &gt; ", @crumb)."</div>\n<ul>";
 
     my $useAssetUrls = $session->config->get("richEditorsUseAssetUrls");
-    my $children = $base->getLineage(["children"]);
+    my $children = $base->getLineageIterator(["children"]);
     while ( my $child = $children->() ) {
         next unless $child->canView;
         $output .= '<li>';