From 3f393980c4dfdfbf9e34ac04e64c0c4856f60135 Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Thu, 13 Nov 2008 17:43:56 +0000
Subject: [PATCH] do not make a user object unless it is needed

---
 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 a3875b49f..235a06735 100644
--- a/lib/WebGUI/Asset.pm
+++ b/lib/WebGUI/Asset.pm
@@ -239,10 +239,10 @@ Unique hash identifier for a user. If not supplied, current user.
 sub canEdit {
     my $self = shift;
     my $userId = shift || $self->session->user->userId;
-    my $user = WebGUI::User->new($self->session, $userId);
     if ($userId eq $self->get("ownerUserId")) {
         return 1;
     }
+    my $user = WebGUI::User->new($self->session, $userId);
     return $user->isInGroup($self->get("groupIdEdit"));
 }