From dcfa6156d141b5b29064529d1387a82636cee651 Mon Sep 17 00:00:00 2001
From: Matthew Wilson <matt@plainblack.com>
Date: Sun, 24 Jul 2005 03:21:21 +0000
Subject: [PATCH]  - fix [ 1240324 ] Folder.pm error evaluating $isImage

---
 lib/WebGUI/Asset/Wobject/Folder.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/lib/WebGUI/Asset/Wobject/Folder.pm b/lib/WebGUI/Asset/Wobject/Folder.pm
index fcf0b393e..cef42fe1b 100644
--- a/lib/WebGUI/Asset/Wobject/Folder.pm
+++ b/lib/WebGUI/Asset/Wobject/Folder.pm
@@ -124,7 +124,7 @@ sub view {
 	my $children = $self->getLineage( ["children"], { returnObjects=>1 });
 	my %vars;
 	foreach my $child (@{$children}) {
-		if (ref $child eq "WebGUI::Asset::Wobject::Folder") {
+		if (ref($child) eq "WebGUI::Asset::Wobject::Folder") {
 			push(@{$vars{"subfolder_loop"}}, {
 				id => $child->getId,
 				url => $child->getUrl,
@@ -133,9 +133,9 @@ sub view {
 				"icon.big"=>$child->getIcon
 				});
 		} else {
-			my $isImage = (ref $child =~ /^WebGUI::Asset::File::Image/);
+			my $isImage = (ref($child) =~ /^WebGUI::Asset::File::Image/);
 			my $thumbnail = $child->getThumbnailUrl if ($isImage);
-			my $isFile = (ref $child =~ /^WebGUI::Asset::File/);
+			my $isFile = (ref($child) =~ /^WebGUI::Asset::File/);
 			my $file = $child->getFileUrl if ($isFile);
 			push(@{$vars{"file_loop"}},{
 				id=>$child->getId,