From 5282b959ca5378e52c7047d5bb1a9365fbe311b0 Mon Sep 17 00:00:00 2001
From: Roy Johnson <roy.l.johnson@gmail.com>
Date: Sun, 5 Jun 2005 18:47:36 +0000
Subject: [PATCH] fix - [ 1187040 ] getNextChildRank doesn't handle rank 999999

---
 lib/WebGUI/Asset.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/lib/WebGUI/Asset.pm b/lib/WebGUI/Asset.pm
index b486c8fb7..680cee773 100644
--- a/lib/WebGUI/Asset.pm
+++ b/lib/WebGUI/Asset.pm
@@ -1526,11 +1526,12 @@ Returns a 6 digit number with leading zeros of the next rank a child will get.
 =cut
 
 sub getNextChildRank {
-	my $self = shift;
+	my $self = shift;	
 	my ($lineage) = WebGUI::SQL->quickArray("select max(lineage) from asset where parentId=".quote($self->getId));
 	my $rank;
 	if (defined $lineage) {
 		$rank = $self->getRank($lineage);
+		if ($rank >= 999998) { WebGUI::ErrorHandler->fatal; }
 		$rank++;
 	} else {
 		$rank = 1;