From 98eeffb61636f8f1771f9185eee5a5fcf44fa6e9 Mon Sep 17 00:00:00 2001
From: Matthew Wilson <matt@plainblack.com>
Date: Mon, 5 Dec 2005 22:05:04 +0000
Subject: [PATCH] typo

---
 lib/WebGUI/AssetBranch.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/WebGUI/AssetBranch.pm b/lib/WebGUI/AssetBranch.pm
index a52ca3533..78514cf9c 100644
--- a/lib/WebGUI/AssetBranch.pm
+++ b/lib/WebGUI/AssetBranch.pm
@@ -78,7 +78,7 @@ Returns 1. Purges self and all descendants.
 
 sub purgeBranch {
 	my $self = shift;
-	my $descendants = $self->getLineage(["self","descendants"],{returnObjects=>1, invertTree=>1, statesToInclude=>['published', 'cliboard', 'clipboard-limbo','trash','trash-limbo']});
+	my $descendants = $self->getLineage(["self","descendants"],{returnObjects=>1, invertTree=>1, statesToInclude=>['published', 'clipboard', 'clipboard-limbo','trash','trash-limbo']});
 	foreach my $descendant (@{$descendants}) {
 		$descendant->purge;
 	}