multiple my

This commit is contained in:
Colin Kuskie 2005-07-18 22:51:23 +00:00
parent 82bd1dba17
commit 2bb395557d

View file

@ -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);