From cc70ba7acd40e60d318f92fdc2e762e8bdaf59ed Mon Sep 17 00:00:00 2001
From: JT Smith <jt@plainblack.com>
Date: Thu, 5 Dec 2002 02:14:45 +0000
Subject: [PATCH] Fixed a bug where when creating a new root, everything goes
 haywire.

---
 lib/WebGUI/Operation/Page.pm | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/lib/WebGUI/Operation/Page.pm b/lib/WebGUI/Operation/Page.pm
index 21bd81069..56c03a289 100644
--- a/lib/WebGUI/Operation/Page.pm
+++ b/lib/WebGUI/Operation/Page.pm
@@ -211,7 +211,11 @@ sub www_editPage {
         if (WebGUI::Privilege::canEditPage($session{form}{npp})) {
 		$f = WebGUI::HTMLForm->new;
 		if ($session{form}{npp} ne "") {
-			%page = WebGUI::SQL->quickHash("select * from page where pageId=$session{form}{npp}");
+			my $buildFromPage = $session{form}{npp};
+			if ($buildFromPage == 0) {
+				$buildFromPage = $session{setting}{defaultPage};
+			}
+			%page = WebGUI::SQL->quickHash("select * from page where pageId=$buildFromPage");
 			$page{templateId} = 1;
 			$page{pageId} = "new";
 			$page{title} = $page{menuTitle} = $page{urlizedTitle} = $page{synopsis} = '';