From 2bb395557d014f1d27d570ff8eeda506ddff1506 Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Mon, 18 Jul 2005 22:51:23 +0000
Subject: [PATCH] multiple my

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

diff --git a/lib/WebGUI/Asset.pm b/lib/WebGUI/Asset.pm
index 7d69cebff..7ce4f0a55 100644
--- a/lib/WebGUI/Asset.pm
+++ b/lib/WebGUI/Asset.pm
@@ -1924,7 +1924,7 @@ Lineage string.
 =cut
 
 sub newByLineage {
-	my $class = shift;
+	my $self = shift;
         my $lineage = shift;
         my ($id,$class) = WebGUI::SQL->quickArray("select assetId, className from asset where lineage=".quote($lineage));
 	return WebGUI::Asset->new($id, $class);