From 665f3bdc1eb23b3d11c017852b4389215f222ed4 Mon Sep 17 00:00:00 2001
From: JT Smith <jt@plainblack.com>
Date: Mon, 25 Nov 2002 18:14:31 +0000
Subject: [PATCH] Fixed the delete page qualifier.

---
 lib/WebGUI/Operation/Page.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lib/WebGUI/Operation/Page.pm b/lib/WebGUI/Operation/Page.pm
index 98dac65ad..c7de8e250 100644
--- a/lib/WebGUI/Operation/Page.pm
+++ b/lib/WebGUI/Operation/Page.pm
@@ -114,7 +114,7 @@ sub www_cutPage {
 #-------------------------------------------------------------------
 sub www_deletePage {
 	my ($output);
-	if ($session{page}{pageId} < 26) {
+	if ($session{page}{pageId} < 1000 && $session{page}{pageId} > 0) {
 		return WebGUI::Privilege::vitalComponent();
 	} elsif (WebGUI::Privilege::canEditPage()) {
 		$output .= helpIcon(3);
@@ -132,7 +132,7 @@ sub www_deletePage {
 
 #-------------------------------------------------------------------
 sub www_deletePageConfirm {
-        if ($session{page}{pageId} < 25) {
+	if ($session{page}{pageId} < 1000 && $session{page}{pageId} > 0) {
 		return WebGUI::Privilege::vitalComponent();
         } elsif (WebGUI::Privilege::canEditPage()) {
 		WebGUI::SQL->write("update page set parentId=3 where pageId=".$session{page}{pageId});